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INTRODUCTION 


This  publication  lists  and  describes  all  I60-A  cooqputer  routines  available  in 
the  Con^uter  Program  Development  Center  (CFDC),  and  consists  of  the  following 
six  sections: 

Section  1.0  -  Alphabetical  Index  This  section  Is  ail  alphabetical 

index  for  all  available  16O-A 
routines.  It  lists  identification 
codes  and  either  locates  descrip¬ 
tions  appearing  in  this  dociament, 
or  as  In  a  few  Instances,  references 
descriptions  available  In  other 
documents. 


Section  2.0  -  Subject  Classification 
Code  Index 


This  section  is  a  subject  index  for 
all  available  160-A  routines. 


Section  3«0  -  Abstracts  This  section  contains  abstracts  of 

all  available  160-A  routines. 

Section  4.0  -  Group  I  Routines  This  section  contains  descriptions 

of  routines  found  to  be  more 
efficient  for  CPDC  use;  accordingly 
these  routines  are  modified  and 
up-dated  more  often.' 


Section  ^.0  -  Group  II  Routines  This  section  contains  descriptions 

of  routines  that  have  not  been 
enq^loyed  in  the  CPDC.  Some  of  these 
Group  II  routines  are  similar  to 
those  found  in  Group  I,  and  other 
160-A  users  may  find  some  of  these 
routines  better  suited  for  their 
applications . 

Section  6.0  -  Appendix  This  section  contains  the  related 

references  to  the  contents  of  the 
manual. 

This  docunwnt  provides  a  complete  and  current  reference  manual  for  all  I60-A 
prograaniiig  routines  available  in  the  CPDC.  Use  of  this  document  will  effect 
better  dissemination  of  checked-out  routines  and  will  reduce  redundant  pro- 
granmlxig  efforts  by  I60-A  users.  It  also  serves  as  training  aid  for  new  CPDC 
personnel.  In  an  effort  to  maintain  a  realistic  and  current  document,  change 
pages  will  be  published  perlodlcatUy  to  reflect  modifications,  additions  and/or 
deletions. 
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NOTE:  Paper  tapes  are  available  In  the  CPDC  for  each  routine  listed  in  this 
document . 

Although  source  data  evolved  from  SWAP  and  the  CPDC,  the  majority  of  the 
routines  are  described  per  SWAP  standards.  In  a  few  Instances,  the  responsible 
corporation  and/or  programmer  is  not  listed,  as  the  Information  was  not  avail¬ 
able,  If  upon  using  this  document,  you  find  that  you  know  the  answer  to  any 
of  these  voids,  please  transmit  this  information  to  the  CPDC. 
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ALPHABETICAL  INDEX 


Title 

Ident . 

Page 

ALNUP 

Z3.OO 

4-240 

Alphanumeric  and  Special  Character  Demonstration  Plot 

F8,02 

4-90 

Binary  Card-Binary  Tape  Verify  Routine 

AF6.06 

4-82 

Binary  Coded  Decimal  to  Binary 

HI.  01 

4-94 

Binary  Loader  for  FPP-33  Input 

A4,11A 

4-7 

Binary  to  Four  Bit  Decimal  Conversion 

HI.  00 

4-93 

Bl-Octal  Dump 

AF3.I2 

4-67 

Bl-Octal  Dump  2 

F3.06 

5-8 

Card  to  Magnetic  Tape  (I67  to  l63/l64) 

F6.O3 

4-79 

Card  to  Magnetic  Tape  Routine  (16O-A) 

F6.O5 

5-10 

Card  Read  Routine  (167) 

AE2.01 

4-34 

Change  Magnetic  Tape  Record  Length  Binary  Tapes 

Fe.o4 

4-8o 

Composite  Beams 

AK4.01 

4-197 

Conflex 

AHI.03 

4-100 

Core  Dump  (l6l2) 

AF3.II 

4-6® 

Duplicate  Paper  Tape 

AFl.OO 

4-37 

Equation  Solver 

AJl.0'1 

4-152 

Flex  Load  and  Flex  Verify 

AF2.00 

4.49 

Flex  Tape  to  Magnetic  Tape  Converter 

Fe.oi 

4-75 

Flexowriter  Tape  to  Anelex 

F4.0T 

4-TO 

Floating  Bi-Octal  Punch  and  Floating  Bi-Octal  Verify 

AF3.OO 

4s- 50 

Floating  Resident  Service  Library 

ADl.Ol 

4.9 

FORTRAN  Cards  to  Flex  Tape 

AF7.OO 

4-87 

Fractional  Arithmetic 

11.04 

4-130 

General  Binary  to  BCD,  BCD  to  Binary  Conversion 

AH1.04  # 

4-104 

Horizontal  Adjustment 

AK5.OI 

4-805 

INTERFOR 

ABl.O^ 

INTERFOR  Arcsine,  Arcossine  Subroutine 

ABl.03-3 

INTER  Assembly  Program  (FLAP) 

AA1.02A 

INTERFOR  Exponential  Subroutine 

ih* 

INTERFOR  Log  to  the  Base  2  Subroutine 

AB1.03-t 

** 

INTERFOR  Sine  Cosine  Subroutine 

AB1.0>* 

INTERFOR  Square  Root  Subroutine 

ABl.03-6 

INTERFOR  Subroutine,  Plot 

ABl.03-9 

■»* 

INTERFOR  Subroutines,  TRIG  Routines 

ABl.03-8 

Integer  Divide 

11.03 

4-129 

Linear  Program  I 

Jl.OO 

4-143 

Lines  and  Circles 

AKI.03 

4-172 

Listable  Octal  Dump 

F3.O2 

5-7 

Listable  Symbolic  Dump  (l  word  per  Flex  line) 

F3.04A 

4-56 

**See  "INTERFOR/Reference  Manual' 
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Title 

Ident . 

Page 

Llstable  Symbolic  Dump  (4  words  per  Flex  line) 

F3.O3 

4-55 

Magnetic  Tape  Bootstrap  (160-A) 

ADI. 02 

4-16 

Magnetic  Tape  to  Flex  Tape 

A3. 02 

4-5 

Matrix  Inversion 

11.06 

4-135 

Memory  Dump 

F3.OI 

4-53 

Mortgage  Amortization 

AZ3.O3 

4-243 

Multiple  Precision  Package 

B1.02 

5-1 

Nine  Bit  Quick  Multiply 

11.02 

4-128 

Nine  Bit  Quick  Sine 

11.05 

4-133 

Octal  Dump 

AF3.O9 

4-62 

OSAS-A  Binary  Loader  -  Assembly  Mode  Magnetic  Tape 

AA4.03 

OSAS-A  Binary  Loader  -  Card 

AA4.02 

** 

OSAS-A  Binary  Loader  -  Character  Mode  Magnetic  Tape 

AA4.04 

*# 

OSAS-A  Binary  Loader  -  Paper  Tape 

AA4.01 

OSAS-A  Master  Paper  Tape  Edit 

AA2.02 

** 

OSAS  Symbolic  Flex  Tape  to  Cartis 

A3. 03 

4-6 

Paper  Tape  Edit 

A2.0U 

4-1 

Paper  Tape  Verify 

FI. 03 

5-6 

Peripheral  Integrated  Utility  System 

AD2.03 

4-28 

Plot  from  Magnetic  Tape  l63/l64  to  165  Plotter 

AF8.01 

4-88 

Program  Structure 

All. 07 

4-138 

Proper  Fraction  for  Calculating  Percentages 

11. 00# 

4-126 

Punched  Paper  Tape  Duplicator  (short  tapes) 

FI.  00 

4-35 

Punched  Paper  Tape  Duplicator  (long  tapes) 

FI.  01 

4-38 

Random  Number  Generator  (12  bit) 

Z1.02 

4-238 

SICOM 

abi.o4a 

SICOM  167  Data  Input  • 

ABl.lOB 

*** 

SICOM  Double  Precision  Translator 

ABI.08A 

*** 

SICOM  Double  Precision  Translator  Subroutine 

ABI.09A 

SICOM  Graph  Plotter  Subroutine 

ABl.llA 

SICOM  Single  Precision  Translator 

ABI.06A 

SICOM  Single  Precision  Translator  Subroutine 

ABI.07A 

*** 

SICOM  Standard  Mathematical  Subroutines 

ABI.04-2 

*** 

SICOM  Straight  Line  Plot  Routine 

AB1.12 

*** 

Simultaneous  Card-to-Tape,  Tape-to-Print 

AD2.02 

4-19 

Single  Precision  Divide 

11.01 

4-127 

Single  Precision  Fractional  Square  Root 

Zl.OO 

4-237 

Single  Profile 

AK2.01 

4-184 

Soil  Consolidation 

AK6.01 

4-214 

Sort  3X 

H2.01 

4-108 

Spiralled  Way  Alignment 

AKl.Ol 

4-155 

**See  "OSAS-A/The  I60-A  Assembly  System." 

**»See  "SICOM  Manual,  Scientific  and  Commercial  Programming  System  for 
Control  Data  16O-A  Computer." 
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Title 

Ident . 

Page 

Statistical  Program  I 

U.Ol 

lt-227 

Statistical  Program  II 

LI. 02 

4-228 

Statistical  Program  III 

LI. 03 

4-230 

Statistical  Program  IV 

L1.04 

4-231 

Statistical  Progjraa  V 

LI  .05 

4-232 

Statistical  Program  VI 

U.06 

4-233 

Statistical  Psbgram  YII 

LI. 07 

4-235 

Symbolic  Assembly  System  (OSAS-A) 

AAI.OIC 

*«■ 

SymboAc  Flexofflter  EUnp 

AF3.O8 

4- 60 

Symbolic  Planter  Duit) 

AF3-07 

4-57 

Symbolic  Tjrpefrtfcer  Dump 

AF3.IO 

4-63 

Tape  Compare 

AFI.06 

4-47 

Tapm  Copy/Conpasfe! 

FI.  05 

4-43 

Tape  kader  Prepmrtitlon 

FI. 02 

4-4l 

Tape-to-Card  Punc|.Tb(g  Routine 

F5.02 

4-73 

TR/^  * 

Gl.OO 

4-92 

Trajectory  Calculation 

AZ3.02 

4-241 

Transformation  of  Coortllnates 

AKl.OU 

4-179 

Traverse  Adjustment 

AK1.02 

4-164 

160-A  Output 

AH1.02 

4-96 

1607  to  160  to  1612  Routine 

Fit.  06 

4-68 

1609  to  Magnetic  Tape  (1609-I6U) 

F6.02 

4-77 

**See  "PSAS-A/The  16O-A  Assembly  System. 
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SUBJECT  CLASSIFICATION  CODE  INDEX 


A.  Assembly  and  Belated  Routines 

A1  Assembly  Programs 
A2  Symbolic  Code  Editors 
A3  Peripheral  Conversion  Routines 
Ah  Loaders 

B .  Interpretive  Systems 

B1  Scientific  Computations 
B2  Data  Processing 

C .  Compilers 

Cl  Scientific  Computations 
C2  Data  Processing 

D.  Service  Routine  Convenience  Packages 

D1  Resident  Service  Packages 
D2  Special  Purpose  PackeigeB 

E.  Input-Output  Control  Routines 

El  Magnetic  Tape 
E2  Card  Equipment 
E3  Printers 
E4  Typewriters 
E5  Plotters 

F.  Service  Routines 

FI  Duplicators  and  Related  Routines 
F2  Memory  Loaders 
F3  Memory  Dumps 

F4  Data  Transfer  -  Printer  Output 
F5  Data  Transfer  -  Card  Output 
F6  Data  Transfer  -  Magzwtic  Tape  Output 
F7  Data  Transfer  -  Paper  Tape  Output 
F8  Data  Transfer  -  Plotter  Output 
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SUBJECT  CLASSIEIOATION  CODE  INDEX 

G.  Program  Testing  Aids 

G1  Trace  Routines 
G2  Dynamic  Analysis  Routines 

H.  Information  Processing  Routines 

HI  Conversions 
H2  Soirts  and  Merges 

I.  Arithmetic  and  Elementary  Function  Routines 

11  Fixed  Point 

12  Floating  Point 

J.  Linear  Programming 

K.  Civil  Engineering 

K1  Surveying 
K2  Highway  Engineering 
K3  Hydraulics  Engineering 
K4  Structiural  Engineering 
K3  Pbotogrammetry 
K6  Soils 

L.  Statistical  Analysis  and  Probability 

Z.  Demonstration  Routines 

Z1  Mathematical 
Z2  Games 
Z3  Miscellaneous 


I 
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AAI.OIC 


AA1.02A 


A2.01A 


AA2.02 


A3. 02 

» 

A3.03 


AA4.0I 


AAA. 02 


) 


SYMBOLIC  ASSEMBLY  SYSTEM  (OSAS-A) 

ACCEPTS  160-A  INSTRUCTIONS  IN  SYMBOLIC  FORM.  ASSIGNS  ABSOLUTE 
LOCATIONS  TO  THE  SYMBOLIC  ADDRESSES.  PERFORMS  THE  NECESSARY 
WORK  OF  RELATIVE  ADDRESSING  TO  PROVIDE  AN  ABSOLUTE  MACHINE 
CODE  FOR  INPUT  TO  THE  160-A  COMPUTER.  INPUTS  CAN  BE  PAPER 
TAPE.  MAGNETIC  TAPE.  OR  CARDS.  OUTPUT  IS  PAPER  TAPE.  MAG¬ 
NETIC  TAPE.  CARDS.  OR  PRINTER. 


INTERFOR  ASSEMBLY  PROGRAM  (FLAP) 

ASSEMBLES  A  PROGRAM#  STATED  IN  SYMBOLIC  LANGUAGE.  INTO  A 
FORM  EXECUTABLE  BY  INTERFOR,  OUTPUT  IS  AN  ASSEMBLY  LISTING 
TAPE  AllD  A  BINARY  OBJECT  PROGRAM  TAPE  LOADED  BY  A4.11, 
COlFIGURATrfOH  -  IINIMUB  SWAP  160-A.  166  AND  167  INPUT/OUTPUT 
OPTIONAL. 


PARER  TABE  EDIT 

CHANGES  SYNBOWIC  PAPER  TAPES  PREPARED  FOR  ASSEMBLY  BY  FLAP 
OR  OSAS.  CHANGES #At  BE  IN  THE  FORM  OF  REPLACEMENTSfl  IN¬ 
SERTIONS#  OR  DEWETIONS  OF  COMPLETE  LINES. 


OSA9-A  MASfER  PAPER  TAPE  EDIT 

CHANGES  AN  OSAS-A  MASTER  PAPER  TAPE  BY  ADDING  TO.  DELETING 
AND/OR  REPLACING  EXISTING  ROUTINES  IN  THE  SECOND  RECORD. 


MAGNETIC  TAPE  TO  FLEX  TAPE 

CONVERT  80  CHARACTER  BCD  CODED  INFORMATION  ON  MAGNETIC 
TAPE  IN  format  OF  OSAP  CARD  INPUT. 


OSAS  SYMBOLIC  FLEX  TAPE  TO  CARDS 

CONVERTS  OSAS  SYMBOLIC  FLEX  TAPES  TO  HOLLERITH  CARDS. 
ALLOWS  OPTIONAL  CARD  SEQUENCING  UP  TO  FOUR  DIGITS. 


OSAS-A  BINARY  LOADER  -  PAPER  TAPE 

READS  BINARY  PROGRAMS  ON  PAPER  TAPE  PREPARED  BY  OSAS-A 
INTO  MEMORY.  PROGRAMS  ARE  RELOCATABLE. 


OSAS-A  BINARY  LOADER  -  CARD 

READS  BINARY  PROGRAM  CARDS  PREPARED  BY  OSAS-A  INTO  MEMORY. 
PROGRAMS  ARE  RELOCATABLE.  USES  088  READER. 
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AA4.03 

AA4.04 

A4. IIA 

81.02 

AB1.03A 

ABl.03-2 

ABl.03-3 

ABl.03-5 

ABI.03-6 


OSAS-A  BINARY  LOADER  -  ASSEMBLY  MODE  MAGNETIC  TAPE 

READS  BINARY  PROGRAM  IMAGES  PREPARED  BY  OSAS-A  INTO  MEMORY. 

PROGRAMS  ARE  RELOCATABLE.  USES  163  OR  164  TAPE  UNITS. 


OSAS-A  BINARY  LOADER  -  CHARACTER  MODE  MAGNETIC  TAPE 
READS  BINARY  PROGRAM  IMAGES  PREPARED  BY  OSAS-A  INTO  MEMORY. 
PROGRAMS  ARE  RELOCATABLE.  USES  163  OR  164  TAPE  UNITS. 


INTERFOR  BINARY  LOADER  ( FLOADER ) 

LOADS  BINARY  OBJECT  PROGRAMS  PREPARED  BY  FLAP.  THE  OBJECT 
PROGRAM  IS  RELOCATABLE.  ■  ,  .  - 

CONFIGURATION  -  MINIMUM  SWAP  160  OR  i60-A 


MULTIPLE  PRECISION  PACKAGE  '.  .. 

PERFORMS  ARITHMETIC  WITH  OPERANDS  EXPRESSED-  T0> 6 .  12 »  18 »  24. 
...6N  BINARY  DIGIT  PRECISION. 

CONFIGURATION-MINIMUM  160  COMPUTER  ■■■'’i-'.--  '■  ’ 


INTERFOR 

AN  INTERPRETIVE  SYSTEM  PROVIDING  SYMBOLIC  AND  NUMERIC 
programming.  6  INDEX  REGISTERS  AND  33-BIT’ FLOATING'  POINT 
ARITHMETIC.  THE  COMMANDS  ARE  A, SUBSET  OF  THE  CONTROL  DATA 
1604  COMMANDS.  PROGRAMS  MAY  BE  WRITTEN  FOR  I NTERFOR;,  WH I CH 
ALSO  RUN  ON  THE  1604. 

CONFIGURATION  -  MINIMUM  160-A  COMPUTER .: 


INTERFOR  SINE  COSINE  SUBROUTINE. 

GIVEN  X.  COMPUTES  THE  SINE  X  OR  COS  X  (WHERE  X  IS  IN 
RADIANS). 


INTERFOR  ARCSINE.  ARCCOSINE  SUBROUTINE 

GIVEN  X.  FINDS  THE  ARCCOS  OF  X  OR  ARCSINE  OF  X. 


INTERFOR  EXPONENTIAL  SUBROUTINE 

CALCULATES  2  TO  THE  X  POWER.  E  TO  THE  X  POWER  OR  10  TO  THE 
X  POWER. 


INTERFOR  SQUARE  ROOT  SUBROUTINE 

GIVEN  A  NUMBER  X  IN  THE  ACCUMULATOR.  FINDS  THE  SQUARE  ROOT 
OF  THE  NUMBER  BY  THE  USE  OF  THE  NEWTON  ITERATION  METHOD 
AND  LEAVES  THE  SQUARE  ROOT  IN  THE  ACCUMULATOR. 
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ABl.03-7  INTERFOR  LOG  TO  THE  BASE  2  SUBROUTINE 

GIVEN  A  FLOATING  POINT  NUMBER  IN  A.  CALCULATE  THE  LOG  TO 
THE  BASE  2  OF  THIS  NUMBER. 


ABl.03-8  INTERFOR  SUBROUTINE.  TRIG  ROUTINES 

COMBINES  THE  FOLLOWING  SUBROUTINES  -  SINE  COSINE.  ARCTAN 
X  ANU  SERIES  EXPANSION.  SINE  COSINE  COMPUTES  THE  SIN  X 
OR  COS  X  WHERu  X  IS  IN  RADIANS.  ARCTANGENT  FINDS  THE 
ARCTANGENT  OF  X  USING  THE  MACLAURIN  SERIES  AS  GIVEN  IN 
HASTINGS.  PAGE  137.  X  IS  IN  R/.DIANS. 


ABl.03-9  INTERFOR  SUBROUTINE.  PLOT 

PLOTS  RESULTS  ON  THE  ON-LINE  MODEL  165  PLOTTER  IN  EITHER 
OF  TWO  WAYS  -  1.  MOVING  FROM  PREVIOUS  PLOT  POINT  TO 
PRESENT  PLOT  POINT  IN  A  STRAIGHT  LINE  WITH  PEN  DOWN.  AND 
2.  MOVING  FROM  PREVIOUS  PLOT  POINT  TO  PRESENT  PLOT  POINT 
WITH  PEN  UP.  PLOT  A  SYMBOL  TO  REPRESENT  DESIRED  POINT. 
CONFIGURATION  -  MINIMUM  160-A  COMPUTER  AND  MODEL  165  PLOTTER. 


AB1.04A  SICOM 

A  GENERAL  PURPOSE  INTERPRETIVE  SYSTEM  USING  FLOATING  POINT 
arithmetic.  APPLICABLE  TO  SCIENTIFIC.  ENGINEERING  AND 
COMMERCIAL  COMPUTATIONS.  CONVERTS  THE  160-A  INTO  A  DECIMAL. 
FLOATING  POINT  MACHINE  WITH  10  DECIMAL  DIGITS.  PLUS  EXPONENT 
WORD  length. 

CONFIGURATION  -  CAN  RUN  WITH  A  MINIMUM  160-A. 


ABl.04-2  SICOM  STANDARD  MATHEMATICAL  SUBROUTINES 

THE  FOLLOWING  SUBROUTINES  ARE  INCLUDED  -  SQUARE  ROOT. 
SIN-COS.  LOG  X  TO  BASE  10.  10  TO  THE  X  POWER  AND  ARC  TAN. 


BI.O5  160  FORTRAN  FLOATING  POINT  ARITHMETIC  PACKAGE 

PROVIDES  A  SEPARATE  ASSEMBLY  OF  THE  ARITHMETIC  PACKAGE 
USED  IN  160  FORTRAN  FOR  INCORPORATION  AS  A  SUBROUTINE  IN 
PROGRAMS  WHICH  REQUIRE  SUCH  FLOATING  ARITHMETIC. 
CONFIGURATION  -  MINIMUM  SWAP  160  OR  160-A  COMPUTER. 
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ABI.O6A  SICOM  SINGLE  PRECISION  TRANSLATOR 

THF  SINGLE  PRECISION  INTERCOM  TRANSLATOR  IS  A  PROGRAM  BY 
WHICH  A  BENDIX  G-15  INTERCOM  1000  SINGLE  PRECISION  OR 
INTERCOM  500X  SOURCE  PROGRAM  PREPARED  ON  THE  FLEXOWRITER 
MAY  BE  TRANSLATED  INTO  A  CONTROL  DATA  160-A  SICOM  SOURCE 
PROGRAM  TAPE. 


AB1.07A  SICOM  SINGLE  PRECISION  TRANSLATOR  SUBROUTINES 

included  with  the  TRANSLATOR  ARE  SICOM  SUBROUTINES  WHICH 
ARE  SUBSTITUTED  FOR  THEIR  G-15  COUNTERPARTS  (I.E.»  SQUARE 
ROOT.  SIN-COS.  ARCTAN.  LOG.  EXPONENTIAL  AND  MAGNETIC  TAPE). 
THE  intercom  FRACTION  SELECTOR  AND  FLEXOWRITER  SUBROUTINES 
ARE  REPLACED  BY  SICOM  COMMANDS.  THE  G-15  INDEX  REGISTER 
UTILIZATION  SUBROUTINE  IS  UNNECESSARY  IN  SICOM. 


AB1.08A  SICOM  DOUBLE  PRECISION  TRANSLATOR 

THE  DOUBLE  PRECISION  INTERCOM  TRANSLATOR  IS  A  PROGRAM 
BY  WHICH  A  BENDIX  G-15  INTERCOM  1000  DOUBLE  PRECISION 
SOURCE  PROGRAM  PREPARED  ON  THE  FLEXOWRITER  MAY  BE  TRANS¬ 
LATED  INTO  A  CONTROL  DATA  160-A  SICOM  SOURCE  TAPE.  THE 
translation  will,  in  most  cases.  BE  READY  FOR  A  PRODUCTION 
RUN  ON  THE  160-A  UNDER  SICOM  CONTROL.  THE  TRANSLATOR  IS  ) 

designed  to  make  THE  CONVERSION  OF  ANY  WELL-DOCUMENTED 
INTERCOM  DOUBLE  PRECISION  PROGRAM  AS  SIMPLE  AS  POSSIBLE 
FOR  A  PROGRAMMER  FAMILIAR  WITH  BOTH  SYSTEMS. 


AB1.09A  SICOM  DOUBLE  PRECISION  TRANSLATOR  SUBROUTINES 

INCLUDED  WITH  THE  TRANSLATOR  ARE  SICOM  SUBROUTINES  WHICH 
ARE  SUBSTITUTED  FOR  THEIR  G-15  COUNTERPARTS.  THE  INTER¬ 
COM  FRACTION  SELFCTOR  AND  THE  G-15  INTERCOM  INDEX  REGISTER 
utilization  SUBROUTINES  IS  UNNECESSARY  IN  SICOM. 


ABl.lOB  167  DATA  INPUT  FOR  SICOM 

FIXFD  POINT  INTEGERS  AND  ALPHANUMERIC  DATA  MAY  BE  PUNCHED 
ON  CARDS  AND  LOADED  VIA  THE  167  READER.  THE  SUBROUTINE 
MUST  BE  ENTERED  EACH  TIME  A  CARD  IS  READ. 

CONFIGURATION  -  MINIMUM  SWAP  160-A.  167  READER. 


ABl.llA  SICOM  GRAPH  PLOTTER  SUBROUTINE 

RELOCATABLE  GENERAL  PURPOSE  PLOTTER  SUBROUTINE. 


AB1.12 


SICOM  STRAIGHT  LINE  PLOT  ROUTINE 

PLOTS  STRAIGHT  LINES  IN  AN  X.  Y  OR  45  DFGREE  DIRECTION 
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ACl.OO 


ADI. 01 


ADI. 02 


AD2.02 


A02.03 


AE2.01 


160  foRtran-a  system 

PROVIDES  A  SIMPLE  AND  EFFICIENT  METHOD  FOR  SCIENTIFIC 
PROBLEM  SOLVING.  EMPLOYS  A  LANGUAGE  RESEMBLING  THAT  OF 
ORDINARY  MATHEMATICS  AND  COMMON  LANGUAGE  TO  DESCRIBE  THE 
MATHEMATICAL  AND  LOGICAL  PROCEDURE  TO  BE  FOLLOWED  TO 
calculate  THE  DESIRED  RESULTS.  THIS  LANGUAGE  (SOURCE 
PROGRAM)  IS  THE  INPUT  TO  FORTRAN  WHICH  PRODUCES  MACHINE 
INSTRUCTIONS  (OBJECT  PROGRAM)  THAT  PERFORM  THE  DESIRED 

calculations. 

CONFIGURATION  -  MINIMUM  SWAP  160-A*  OPTIONAL  088  OR  167. 
THE  SYSTEM  CONSISTS  OF  PHYSICAL  TAPES  LISTED  BElOW. 

160  FORTRAN-A  COMPILER  I  f088  SOURCE  INPUT) 

160  FORTRAN-A  COMPILER  I  (167  SOURCE  ,  INPUT ) 

160  FORTRAN-A  compiler  II 

160  fortran-a  interpreter  ’ 


RESIDENT  SERVICE  PACKAGE  1- 

EACH  OF  THE  'FOLLOWING  FUNCTIONS  IS  OPERATED  BY  ENTERING 
THE  RESIDENT  LIBRARY  AT  A  SPECIFIED  POINT  -  BI-OCTAL  PUNCH, 
BI-OCTAL  VERIFY,  FLEX  TAPE  LOAD,  FLEX  TAPE  PUNCH,  FLEX  TAPE 
verify.  TYPE  LOAD,  AND  TYPE  DUMP. 

CONFIGURATION  -  MINIMUM  160-A  COMPUTER.  TYPEWRITER  OPTIONAL. 


MAGNETIC  TAPE  BOOTSTRAP 

KEEPS  ITSELF  AND  PROGRAMS  OR  DATA  ON  MAGNETIC  TAPE  TO 
ELIMINATE  PAPER  TAPE  HANDLING.  MAY  BE  LOADED  AND  BLOCKS 
WRITTEN  OR  READ  BY  CONSOLE  ENTRY  OF  DATA. 
CONFIGURATION-MINIMUM  SWAP  160-A  AND  A  163-2. 


SIMULTANEOUS  CARD-TO-TAPE ,  TAPE-TO-PR I  NT  PROGRAM 
RUNS  A  CARD-TO-TAPE  OPERATION  SIMULTANEOUSLY  WITH  A 
TAPE-TO-PRINTER  OPERATION.  ABOUT  90  PER  CENT  OF  MAXIMUM 
SPEED  IS  OBTAINED. 

CONFIGURATION  -  MINIMUM  SWAP  160-A,  163-A,  163-2,  1612,  088. 


peripheral  integrated  utility  SYSTEM  (PIUS) 

TO  PROVIDE  A  PROGRAM  TO  CORRELATE  AND  CONTROL  A  LIBRARY 
OF  160-A  ROUTINES  IN  AN  EXECUTIVE  UTILITY  SYSTEM. 


167  CARD  READ  ROUTINE 

READS  A  HOLLERITH  OR  BINARY  CARD  AND  STORES  THE  INFOR¬ 
MATION  PACKED.  (12  bits  PER  WORD).  OR  UNPACKED.  SIX  BITS 
IN  THE  LOWER  HALF  OF  EACH  WORD. 

CONFIGURATION  -  MINIMUM  SWAP  160-A.  167  READER. 
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NATION  PACKED.  (12  BITS  PER  WORD).  OR  UNPACKED.  SIX  BITS 
IN  THE  LOWER  HALF  OF  EACH  WORD. 

CONFIGURATION  -  MINIMUM  SWAP  160-A.  167  READER. 


FI. 00  PAPER  TAPE  DUPLICATOR  (TAPDUP)  . 

PRODUCES  AND  VERIFIES  MULTIPLE  COPIES..OF  AG  I VEN' PUNCHED  PAPER 
TAPE.  COPIES  UP  TO  6395  FRAMES  OF-  TAPE  AND  PRODUCES  THE  NUMBER' 
OF  COPIES  SPECIFIED  IN  THE  A  REGISTER.' ^  , 

PUNCHES  AN  18  INCH  LEADER  BETWEEN  CORl ES'^^^,;'.'^ 

CONFIGURATION-  MINIMUM  160  COMPUT ER . ,  ;  .  ,  tC 

'  '  j'  ^  A  'V''-'  '('f  '  ■'  '  ■ 

Fl.Ol  PAPER  TAPE  DUPLICATOR.  LONG  TAPES  (T'APDfDi)  ■ 

REPRODUCES  AND  VERIFIES  PAPER  TAPES  OF-MOR^  6395  FRAMES  BY 

PLACING  THE  IMAGE  ON  MAGNET  IC  TAPE.,  REG  212  L(3CATI0NS  , 

BEGINNING  AT  LOCATION  0050.  ^  A''- 

CONFIGURATION-  MINIMUM  160  COMPUTER ‘AND  STiss:  0 


FI. 02  TAPE  leader  PREPARATION  (TAPIDT), 

PRODUCES  READABLE  CHARACTERS  ON  PAPER  TAPE  LEADERS  FOR 
IDENTIFYING  PROGRAM  TAPES. 

CONFIGURATION-  MINIMUM  160  COMPUTER. 


FI. 03  PAPER  TAPE  VERIFY  (FLXLOD) 

VERIFIES  PAPER  TAPES  BY  COMPARING  THEM  AGAINST  CHECK  SUMS. 
FORMED  BY  THE  ORIGINAL  TAPE.  ANY  LENGTH  TAPE  BE  VERIFIED. 
CONFIGURATION-  MINIMUM  160  COMPUTER 


FI. 05  TAPE  COPY  -  COMPARE 

PROVIDES  THE  FOLLOWING  OPTIONS  -  COPY  OR  COMPARE  MAGNETIC 
TAPE  FILES.  BCD  OR  BINARY  MODE.  REWIND  LOAD  AT  START. 
REWIND  UNLOAD  AT  FINISH. 

CONFIGURATION-MINIMUM  160-A  COMPUTER. 


AF1.06  TAPE  COMPARE  (TACO) 

TO  COMPARE  TWO  BCD  TAPES  TO  INSURE  SIMILARITY 
CONFIGURATION-MINIMUM  160  A.  161  TYPEWRITER. 
1612PRINTER  (OPTIONAL) 


AF2.00  FLEX  LOAD  AND  FLEX  VERIFY 

READS  PAPER  TAPES  INTO  MEMORY  THAT  WERE  PREPARED  ON  A 
FLEXOWRITER  or  by  the  flex  dump  PROGRAM.  FLEX  VERIFY 
CHECKS  FOR  DISCREPANCIES  BETWEEN  TAPE  AND  MEMORY. 
CONFIGURATION-MINIMUM  160-A  COMPUTER. 
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AF3.C0  BI-OCTAL  PUNCH  AND  VERIFY  (BIOPUN) 

PUNCHES  PAPER  TAPE  AND  COMPARES  PORTIONS  OF  MEMORY  IN  BI-OCTAL 
FORMAT. 

CONFIGURATION-  MINIMUM  160  COMPUTER. 


F3.C1  MEMORY  DUMP  TO  MAGNETIC  TAPE  (MEMTPE) 

REQUIRES  181  LOCATIONS 

CONFIGURATION-  MINIMUM  160  COMPUTER  AND  163  OR  164  TAPE  UNITS. 


F3.02  LISTABLE  OCTAL  DUMP  (MEMFLX) 

PRODUCES  IN  FLEXOWRITER  CODE  A  LISTABLE  OCTAL  DUMP  OF  A 
SPECIFIED  AREA  OF  CORE. 

CONFIGURATION-  MINIMUM  160  COMPUTER. 


F3.C3  LISTABLE  SYMBOLIC  DUMP.  4  WORDS  TO  A  LINE  (MEMSY4) 

.  PRODUCES  IN  FLEXOWRITER  CODE  A  LISTABLE  SYMBOLIC  DUMP  OF  A 
SPECIFIED  AREA  OF  CORE.  FOUR  WORDS  PER  FLEX  LINE. 
CONFIGURATION-  MINIMUM  160  COMPUTER. 


•F3.04A  LISTABLE  SYMBOLIC  DUMP.  1  WORD  TO  A  LINE.  (MEMSYL) 

PRODUCES  IN  FLEXOWRITER  CODE  A  LISTABLE  SYMBOLIC  DUMP  OF  A 
SPECIFIED  AREA  OF  CORE.  ONE  WORD  PER  FLEX  LINE. 
CONFIGURATION-  MINIMUM  160  COMPUTER. 


F3.06  BI-OCTAL  DUMP  (MEMTAP) 

DUMPS  MEMORY  ONTO  PAPER  TAPE  IN  BI-OCTAL  FORMAT  FROM  SELECTED 
ADDRESSES. 

CONFIGURATION-  MINIMUM  160  OR  160A  COMPUTER. 


AF3.07  SYMBOLIC  PRINTER  DUMP 

DUMPS  MEMORY  IN  SYMBOLIC  FORM  ONTO  THE  1612  PRINTER. 
CONFIGURATION-MINIMUM  160-A  COMPUTER.  1612  PRINTER. 


AF3.08  SYMBOLIC  FLEXOWRITER  DUMP 

DUMPS  MEMORY  IN  SYMBOLIC  FORM  ONTO  PUNCHED  PAPER  TAPE 
FOR  LISTING  ON  FLEXOWRITER. 

CONFIGURATION-MINIMUM  160-A. 


AF3.09  OCTAL  DUMP 

PROVIDES  AN  OCTAL  DUMP  OF  ONE  BANK  OF  160-A  MEMORY  FROM  A 
GIVEN  STARTING  ADDRESS  TO  THE  END  OF  THAT  BANK  ONTO  THE 
1612  PRINTER.  THE  PROGRAM  IS  RELOCATABLE. 
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CONFIGURATION-MINIMUM  160-A  COMPUTER.  1612  PRINTER. 


AF3.10  SYMBOLIC  TYPEWRITER  DUMP 

PROVIDES  A  SYMBOLIC  DUMP  ONTO  THE  161  TYPEWRITER. 
CONFIGURATION-MINIMUM  SWAP  160-A.  161  TYPEWRITER. 


AF3.11  160-A  CORE  DUMP  TO  1612  (1612  DUMP) 

TO  ALLOW  A  LISTABLE  DUMP  OF  THE  MACHINE  CODES  AND 
CONSTANTS  STORED  IN  160A  AND  169  ONTO  THE  1612 
PRINTER. 

CONFIGURATION-MINIMUM  160  A.  161  TYPEWRITER.  1612  PRINTER 


AF3.12  BIOCTAL  DUMP  (BIDU) 

PUNCHES  A  GIVEN  AREA  OF  A  SELECTED  BANK  IN  BIOCTAL 
FORMAT  FOR  MACHINE  LOADING. 

CONFIGURATION-MINIMUM  160  A. 


F4.06  1607  TO  1612  PRINT  ROUTINE 

READS  BLOCKED  OR  UNBLOCKED  MAGNETIC  TAPES  AND  LISTS  THEM 
ON  THE  control  DATA  1612  PRINTER  AT  1000  LINES  A  MINUTE. 

LIST  CAN  BE  UNDER  PROGRAM  CONTROL  OR  UNDER  CONTROL  OF 
1612  MONITOR  CHANNEL  1-6. 

CONFIGURATION-MINIMUM  160  OR  160-A  COMPUTER.  1607.  AND  1612. 


F4.07  FLEX  TAPE  TO  1612 

READS  FlEX-CODED  PAPER  TAPE.  CONVERTS  THE  FLEX  CODES  INTO 
BCD.  PRINTS  THE  RESULTS  ON  THE  1612. 

CONFIGURATION  -  MINIMUM  SWAP  160  OR  160-A  AND  1612. 


F5.02  163/164  TAPE  TO  CARDS 

READS  MAGNETIC  TAPE  IN  BCD  OR  BINARY  MODE  AND  PUNCHES 
CORRESPONDING  HOLLERITH  OR  BINARY  CARDS.  WRITTEN  PRIMARILY 
TO  PUNCH  OUTPUT  FROM  THE  1664  CO-OP  MONITOR. 
CONFIGURATION-MINIMUM  SWAP  160  OR  160-A.  163  OR  164  TAPE 
UNIT.  1610-523  CARD  PUNCH  SYSTEM. 


F6.01  FLEX  TAPE  TO  MAGNETIC  TAPE  CONVERTER  (FLXTPE) 

REPRODUCES  A  COPY  OF  A  FLEXOWRITER  TAPE  ON  MAGNETIC  TAPE  IN  A 
FORM  suitable  FOR  LISTING. 

CONFIGURATION-  MINIMUM  160  COMPUTER  AND  163  OR  164  TAPE  UNITS, 


F6.02  1609  CARD  TO  MAGNETIC  TAPE 

READS  BCD  CARDS.  CHECKS  VALIDITY  AND  WRITES  BCD  CARD  IMAGES 
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ONTO  MAGNETIC  TAPE.  REQUIRES  LOCATIONS  6600  THROUGH  0000 
AND  LOCATIONS  0070  THROUGH  0076. 

CONFIGURATION  -  MINIMUM  160  OR  160-A.  1609  ADAPTER.  164 
TAPE  AND  A  521  CARO  READ  PUNCH. 


F6.03  167  CARD  TO  TAPE 

CONVERTS  DATA  FROM  CARDS  TO  MAGNETIC  TAPE  RECORDS.  ONE 
CARD  PER  RECORD.  HANDLES  BINARY  OR  BCD  CARDS.  PRODUCES 
BINARY  OR  BCD  RECORDS.  CARDS  MAY  BE  MIXED. 
CONFIGURATION-MINIMUM  SWAP  160  OR  160-A.  167  READER  AND  A 
163  OR  164  TAPE  UNIT. 


F6.04  CHANGE  MAGNETIC  TAPE  RECORD  LENGTH  BINARY  TAPES 

WRITES  MAGNETIC  TAPES  OF  A  DESIGNATED  RECORD  LENGTH  FROM 
TAPES  OF  THE  SAME  OR  DIFFERENT  RECORD  LENGTHS  FOR  BINARY 
TAPFS  ONLY  (ODD  PARITY). 

CONFIGURATION  -  MINIMUM  SWAP  160  OR  160-A.  163-2  OR  164-2 
TAPE  UNIT. 


F6.05  160-A  CARD  TO  MAGNETIC  TAPE  ROUTINE 

ROUTINE  ACCEPTS  STANDARD  80  COLUMN  BCD  OR  COLUMN  BINARY 
CARDS  AND  WRITES  THEIR  CARD  IMAGES  WITH  ••LOOK-AHEAD" 
BITS  ONTO  MAGNETIC  TAPE. 


AF6.06  160-A  BINARY  CARD  BINARY  TAPE  VERIFY  ROUTINE 

ROUTINE  COMPARES  80  COLUMN  BINARY  CARDS  WITH  THEIR 
IMAGE  ON  MAGNETIC  TAPE.  WRITTEN  FOR  IBM  533  CARD  READ 
PUNCH. 

C0NFIGURATI0N-160-A  WITH  163  AND  1610  ADAPTOR  FOR  IBM  CARD 
READ  PUNCH, 


AFT. 00  FORTRAN  CARDS  TO  FLEX  TAPE 

READS  FORTRAN  SOURCE  CARDS  AND  PUNCHES  PAPER  TAPE 
ACCEPTABLE  TO  THE  FORTRAN  COMPILER. 
CONFIGURATION-MINIMUM  SWAP  160-A.  167  READER. 


AF8.01  PLOT  FROM  MAGNETIC  TAPE  163/164  TO  165  PLOTTER 

PLOTS  CONSECUTIVE  POINTS  ON  THE  165  PLOTTER  AND  CONNECTS 
THEM  WITH  THE  BEST  STRAIGHT  LINE.  POINTS  ARE  OBTAINED  FROM 
MAGNETIC  TAPE.  ONE  POINT  PER  TWO-WORD  ASSEMBLY-MODE  RECORD. 
CONFIGURATION  -  MINIMUM  SWAP  160-A  COMPUTER.  TAPE  UNIT  163 
OR  164  AND  165  PLOTTER. 


F8.02  165  ALPHANUMERIC  AND  SPECIAL  CHARACTER  DEMONSTRATION  PLOT 


8  VtbrMry  19^3 


3-10 


BI-(I.)-»3 


BASICALLY  A  DEMONSTRATION  ROUTINE*  BUT  IT  MAY  BE  USED  TO 
PRODUCE  A  NEAT  LABELLING  OF  PLOTS  ON  THE  165  PLOTTER. 
CONFIGURATION  -  MINIMUM  160  OR  160-A  SWAP  COMPUTER.  165 
PLOTTER. 


■'Gl.OO  TRACK  (TRACED 

TRACES  A  PROGRAM.  PROVIDING  FLEX-CODED  PAPE  TAPE  AS  OUTPUT. 
THE  BEGINNING  AND  ENDING  ADDRESSES  OF  CONSECUTIVE  INSTRUCTION 
STRINGS  APPEAR  AS  OUTPUT.  ALLOWING  FASTER  EXECUTION  THAN  IS 
POSSIBLE  USING  A  FULL  TRACE. 

CONFIGURATION-  MINIMUM  UNMODIFIED  160  COMPUTER. 


■HI. CO  BINARY  TO  4  BIT  DECIMAL  CONVERSION  (BINDEC) 

CONVERTS  A  24  BIT  BINARY  INTEGER  INTO  A  DECIMAL  INTEGER  WITH 
EACH  DIGIT  IN  SUCCESSIVE  CELLS. 

CONFIGURATION-  MINIMUM  160  COMPUTER. 


Hl.Oi  BCD  TO  BINARY  CONVERSION  (BCDBIN) 

CONVERTS  A  BINARY  CODED  DECIMAL  NUMBER  OF  UP  TO  SIX  DIGITS  TO 
THE  EC5UIVALENT  BINARY  NUMBER  IN  22  BIT  ARITHMETIC  FORMAT.  THE 
BCD  NUMBER  IS  STORED  ONE  DIGIT  PER  WORD  WITH  THE  DIGIT  AS  THE 
LOW  ORDER  FOUR  BITS  OF  THE  WORD. 

CONFIGURATION-  MINIMUM  160  COMPUTER  AND  163  OR  164  TAPE  UNITS. 


AHl 


OUTPUT  IMAGE 

SETS  UP  A  120  CHARACTER  LINE  IMAGE  FOR  ON-LINE  PRINTING 
OR  WRITING  ON  A  BCD  OUTPUT  TAPE.  THE  FORMAT  IS  SPECIFIED 
IN  THE  calling  SEQUENCE. 


AHl. 03  CONFLEX 

CONVERTS  THE  FLEXOWRITER  MODEL  35-4(STANDARD  WITH  G-15) 
IN  THE  6  LEVEL  MODE  TO  EQUIVALENT  CONTROL  DATA  FLEXO¬ 
WRITER  CHARACTERS. 

CONFIGURATION-MINIMUM  SWAP  160-A. 


AHl. 04  GENERAL  BINARY  TO  BCD/BCD  TO  BINARY  CONVERSION 

A  Closed  SUBROUTINE  entered  by  a  return  jump  with  the 

A-REGISTER  SPECIFYING  THE  TYPE  OF  CONVERSION. 
CONFIGURATION-MINIMUM  SWAP  160-A. 


SORT  3X 

SORT  3X  ACCEPTS  INPUT  FROM  ONE  REEL  OF  MAGNETIC  TAPE  WHERE 
THE  INFORMATION  IS  RECORDED  WITH  ONE  ITEM  PER  BLOCK  OF 
MAGNETIC  TAPE. 


H2.01 
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CONFIGURATION-MINIMUM  SWAP  160  OR  160-A  COMPUTER  AND  FOUR 
606*  1607i  163 »  OR  164  TAPE  HANDLERS. 


11.00  PECFNTAGE  CALCULATION.  PROPER  FRACTION  (PERCAL) 
DIVISION  OF  X  OVER  Y.  WHERE  X  IS  ASSUMED  TO  BE 
LESS  THAN  Y.  THE  ANSWER  WILL  BE  IN  THE  FORM  .XXXX. 
ADJUSTED  BY  ROUNDING  IN  TRUE  BINARY 

REQUIRES  196  LOCATIONS.  INCLUDING  70-77.  RELOCATABLE. 
CONFIGURATION-  MINIMUM  160  COMPUTER. 


11.01  SINGLE  PRECISION  DIVIDE  IDIVFRC) 

DIVIDES  A  POSITIVE  23  BIT  FRACTION  BY  A  POSITIVE  11  BIT 
FRACTION.  GIVING  A  ROUNDED  11  BIT  FRACTIONAL  QUOTIENT. 
CONFIGURATION-  MINIMUM  160  COMPUTER. 


11.02  QUICK  MULTIPLY.  9  BIT  <MULT9B) 

MULTIPLIES  TWO  SIGNED  11  BIT  NUMBERS  TOGETHER.  SIGNED  ANSWER 
IS  ACCURATE  TO  10  BITS. 

CONFIGURATION-  MINIMUM  160  COMPUTER. 


11.03  INTEGER  DIVIDE  (DIVINT) 

DIVIDES  A  POSITIVE  23  BIT  INTEGER  BY  A  POSTIVE  IIBIT  INTEGER. 
GIVING  A  12  BIT  QUOTIENT  WITH  AN  11  BIT  REMAINDER. 

REPEATED  SUBTRACTIONS  ARE  USED. 

CONFIGURATION-  MINIMUM  160  COMPUTER 


11.04  FRACTIONAL  ARITHMETIC  -  22  BIT 

ADOS.  SUBTRACTS.  MULTIPLIES  OR  DIVIDES  POSITIVE  OR  NEGATIVE 
BINARY  FRACTIONS. 

CONFIGURATION-MINIMUM  SWAP  160  OR  160-A. 


11.05  NINE  BIT  QUICK  SINE 

OBTAINS  THE  SINE  OF  ANY  ANGLE  LESS  THAN  90  DEGREES. 
ACCURATE  TO  9  BITS.  USES  11.02. 
CONFIGURATION-MINIMUM  160  OR  160-A  COMPUTER. 


11.06  MATRIX  INVERSION 

SUBROUTINE  IS  WRITTEN  IN  160  FORTRAN  (160  FORTRAN-A)  FOR 
FINDING  THE  INVERSE  OF  A  SQUARE  MATRIX. 


A I 1.07  PROGRAM  STRUCTURE 

DETERMINES  ALL  THOSE  PERMUTATIONS  WHICH  LEAVE  A 
STRUCTURE  (S.RI  INVARIANT.  AND  ALL  THOSE  PERMUTATIONS 
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Jl.OO 


AJl.Ol 


AKl.Ol 


AK1.02 


AK1.03 


AK1.04 


RHO  WHICH  LEAVE  (S.R)  SELF-DUAL. 
CONFIGURATION-MINIMUM  SWAP  160-A. 


LINEAR  PROGRAM  I 

FORTRAN.  USES  THE  SIMPLEX  METHOD.  THE  INPUT  DATA  MUST 
imply  a  FIRST  FEASIBLE  SOLUTION. 

CONFIGURATION-MINIMUM  SWAP  160  OR  160-A. 


EQUATION  SOLVER 

FORTRAN.  SOLVES  30  LINEAR  EQUATIONS  WITH  30  UNKNOWNS. 
A  MODIFIED  GAUSSIAN  ELIMINATION  METHOD  IS  USED. 
CONFIGURATION-MINIMUM  SWAP  160  OR  160-A. 


SPIRALLED  WAY  ALIGNMENT 

COMPUTES  THE  ALIGNMENT  AND  CURVE  DATA  FOR  A  HORIZONTAL 
ALIGNMENT  CONTAINING  SPIRALS  AND  CIRCULAR  CURVES  IN 
ANY  COMBINATION. 

CONFIGURATION-MINIMUM  SWAP  160-A»  161  TYPEWRITER. 


TRAVERSE  ADJUSTMENT 

FOR  THIS  PROGRAM.  A  TRAVERSE  IS  DEFINED  AS  A  SERIES  OF 
MEASURED  DISTANCES  AND  DIRECTIONS.  STARTING  FROM  A  POINT 
OF  KNOWN  COORDINATES.  AND  TERMINATING  AT  A  POINT  OF  KNOWN 
COORDINATES.  THE  PROGRAM  PROVIDES  FOR  THE  OUTPUT  OF  EITHER 
THE  ADJUSTED  OR  UNADJUSTED  TRAVERSE  (ACCORDING  TO  COMPASS 
RULE)  . 

CONFIGURATION-MINIMUM  SWAP  160-A.  161  TYPEWRITER, 


LINES  AND  CIRCLE 

THIS  PROGRAM  CONSISTS  OF  THE  FOLLOWING  FIVE  INDEPENDENT 
PARTS.  THE  KNOWN  DATA  MAY  BE  LOCATED  IN  ANY  ONE  OF  FOUR 
QUADRANTS. 

PART  1  -  INTERSECTIONS  OF  TWO  LINES 

PART  2  -  INTERSECTION  OF  LINE  AND  CIRCLE 

PART  3  -  DISTANCE  AND  BEARING 

PART  4  -  HEIGHT  OF  TRIANGLE 

PART  5  -  TANGENT.  ARC.  AND  SEGMENT 

CONFIGURATION  -  MINIMUM  SWAP  160-A.  161  TYPEWRITER. 


TRANSFORMATION  OF  COORDINATES 

THIS  PROGRAM  WILL  ROTATE  AND  TRANSLATE  THE  COORDINATES  OF 
SERIES  OF  POINTS  WHICH  DEFINE  AN  ENCLOSED  AREA  OR  TRAVERSE. 
COMPUTE  THE  BEARINGS  AND  DISTANCES  BETWEEN  THESE  POINTS,  AND 
FIND  the  area  ENCLOSED. 

CONFIGURATION  -  MINIMUM  SWAP  160-A.  161  TYPEWRITER. 


■■J 
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AK2.01  SINGLE  PROFILE 

GIVEN  BASIC  DATA  TO  DEFINE  THE  VERTICAL  ALIGNMENT  OF  A 
HIGHWAY  THE  PROGRAM  WILL  COMPUTE  ALL  THE  REQUIRED  DATA  AND 
ELEVATIONS  AT  EVEN  INCREMENTED  STATIONS. 

CONFIGURATION  -  MINIMUM  SWAP  160-A.  161  TYPEWRITER. 


AK4.01  COMPOSITE  BEAMS 

DESIGNS  INTERIOR  OR  EXTERIOR  STEEL  BEAMS  FOR  SIMPLE  SPAN 
HIGHWAY  BRIDGES.  THE  FIRST  PART  COMPUTES  A  SOLUTION  FOR 
INTERIOR  BEAMS.  THE  SECOND  PART  COMPUTES  A  SOLUTION  FOR 
FASCIA  OR  EXTERIOR  BEAMS.  EACH  PART  MAY  BE  RUN  INDEPEN¬ 
DENTLY. 

CONFIGURATION-MINIMUM  SWAP  160-A.  161  TYPEWRITER. 

AK5.01  HORIZONTAL  ADJUSTMENT 

IT  IS  DESIRED  TO  OBTAIN  MAP  OR  GRID  COORDINATES  OF  PHOTO- 
GRAMMETRIC  points,  namely  the  HORIZONTAL  PASS  POINTS,  AS  THE 
RESULTS  OF  STEREOTRIANGULATION.  THE  MAP  COORDINATES  OF  HORI¬ 
ZONTAL  CONTROL  POINTS  ARE  GIVEN.  THE  INSTRUMENT  COORDINATES 
OF  THE  CONTROL  POINTS  AND  THE  PASS  POINTS  ARE  OBSERVED  FOR  A 
TRIANGULATED  STRIP  OF  CONTROLLED  PHOTOGRAPHY. 

CONFIGURATION  -  MINIMUM  SWAP  160-A.  161  TYPEWRITER. 


AK6.01  SOIL  CONSOLIDATION 

COMPUTES  THE  SETTLEMENT  OF  N  LAYERS  OF  SOIL  WITH  A 
MAXIMUM  OF  FOUR  LAYERS  AND  A  SURCHARGE  LOAD  PLACED  IN  N 
NUMBER  OF  LIFTS  WHICH  COULD  BE  TOTALLY  OR  PARTIALLY 
REMOVED. 

CONFIGURATION-MINIMUM  SWAP  160-A.  161  TYPEWRITER. 


LI. Cl  statistical  PROGRAM  1 

PRODUCES  THE  MEANS  AND  STANDARD  DEVIATIONS  FOR  TWO  SETS  OF 
VARIABLES  AND  THE  CORRELATION  BETWEEN  CORRESPONDING  ENTRIES 
IN  THE  TWO  LISTS.  FORTRAN. 

CONFIGURATION  -  MINIMUM  SWAP  160  OR  160-A  COMPUTER. 

LI. 02  STATISTICAL  PROGRAM  2 

LINEAR  REGRESSION  ROUTINE  WHICH  PRODUCES  QUANTITIES  FOR  TWO 
SETS  OF  VARIABLES. 

CONFIGURATION  -  MINIMUM  SWAP  160  OR  160-A  COMPUTER. 


LI. 03  STATISTICAL  PROGRAM  3 

TEST  OF  NORMALITY  IN  A  FREQUENCY  DISTRIBUTION  OF  LARGE  SIZE. 


o 
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L1.04 


LI. 05 


LI. 06  . 


LI. 07 


Zl.OO 


Z1.02 


Z3.00 


3-ll^ 


t 


CONFIGURATION  -  MINIMUM  SWAP  160-A  OR  160  COMPUTER. 


STATISTICAL  PROGRAM  4 

PRODUCES  THE  MEAN  AND  STANDARD  DEVIATION  FOR  A  SINGLE 
VARIABLE.  FORTRAN. 

CONFIGURATION  -  MINIMUM  SWAP  160  OR  160-A  COMPUTER. 


statistical  program  5 

PRODUCES  THE  BASIC  STATISTICAL  BUILDING  BLOCKS  FOR  A 
THREE-DIMENSIONAL  SAMPLE-SPACE.  I.E.»  SUMS.  SUMS  OF  SQUARES 
AND  SUMS  OF  CROSS  PRODUCTS.  FORTRAN. 

CONFIGURATION  -  MINIMUM  SWAP  160  OR  160A  COMPUTER. 


STATISTICAL  PROGRAM  6 

PRODUCES  -THE  PERCENTILES  AT  5  PERCENT  INTERVALS  AFTER 
SORTING  THE  ORIGINAL  DATA  INTERNALLY.  FORTRAN. 
CONFIGURATION  -  MINIMUM  SWAP  160  OR  160A  COMPUTER. 


statistical  PROGRAM  7  ' 

PRODUCES  AND  OUTPUTS  EITHER  THE  T-TEST  VALUE  FOR  EQUAL¬ 
SIZED  SETS  OR  THE  T-TEST  VALUE.  FOR  UNEQUAL-SIZED  SETS. 
DEPENDING  ON  WHETHER  THE  SETS  ARE  EQUAL  OR  UNEQUAL  IN 
LENGTH-. 

CONFIGURATION  -  MINIMUM  SWAP,  160-A  , OR;.  160  ’ COMPUTER  . 


SINGLE  PRECISION  FRACTIONAL  SQUARE  ROO V > 

FINDS  THE  SQUARE  ROOT  OF  A  PROPER  FRAGKipN MAXIMUM  ERROR 
OF  2  TO  THE  MINUS  11.  '  Vr;,  '  ' 

CONFIGURATION-  MINIMUM  160  COMPUTER.  :  v’-,  . 

RANDOM  NUMBER  GENERATOR  (12  BIT)  ( DERMGNl^./ 

PRODUCES  12  BIT  RANDOM  NUMBERS.  WILL,  GENERA-TE  2.560.000, 
NUMBERS  WITHOUT  REPEATING.  OUTPUT  IS  DISPLAYED  IN  REGISTER 
CONFIGURATION-  MINIMUM  160  COMPUTER. 


ALNUP 

ROUTINE  PUNCHES  CHARACTER  MESSAGES  IN  PAPER  TAPE  THAT  ARE 
legible  to  an  UNSKILLED  OBSERVER. 

CONFlGURATION-160  CODED  FLEXOWRITER,  160  COMPUTER  WITH 
PAPER  TAPE  INPUT  AND  OUTPUT. 
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AZ3.02  TRAJECTORY  CALCULATION 

GIVEN  THE  TARGET  RANGE.  THE  VELOCITY  OF  THE  PROJECTILE. 
AND  ITS  ANGLE  OF  INCLINATION.  THE  PROGRAM  WILL  PLOT  THE 
PATH  OF  THE  PROJECTILE  ON  THE  TYPEWRITER. 
CONFIGURATICN-MINIMUM  160-A  AND  TYPEWRITER. 


AZ3.03  MORTGAGE  AMORTIZATION 

THE  PROGRAM  HAS  TWO  OPTIONS  -  1.  COMPUTES  THE  MONTHLY 
PAYMENT  NECESSARY  TO  AMORTIZE  A  GIVEN  PRINCIPAL  AMOUNT 
AT  A  GIVEN  INTEREST  RATE  FOR  GIVEN  DURATION.  AND 
2.  COMPUTES  THE  DURATION  NECESSARY  TO  AMORTIZE  A  GIVEN 
INTEREST  RATE  WITH  A  GIVEN  MONTHLY  PAYMENT. 
CONFIGURATION-MINIMUM  SWAP  160-A.  161  TYPEWRITER. 
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IDENT1FICATI(» 

Title:  Paper  Tape  Edit  -  Ident.  A2,01A 

Progranmer:  Harold  C.  Schnackel,  February  1961 

PURPOSE 

This  program  permits  changes  to  be  made  to  symbolic  paper  tapes  prepared  for 

assembly  via  FlAPt  or  OSAS.  Changes  may  be  In  the  form  of  replacements, 

Insertions,  or  deletions  of  complete  lines  relative  to  the  tape  to  be  corrected. 

USAGE 

1.  Operational  Procedure 

a.  Machine  load  bloctal  program  tape  at  location  0000. 

b.  Position  correction  tape  In  reader,  master  clear,  and  run. 

c.  When  correction  tape  has  stopped,  position  the  tape  to  be  corrected 
In  the  reader,  and  run.  The  original  tape  will  read  In  and  the 
corrected  tape  will  be  punched  out. 

d.  NORMAL  STOPS  (OCTAL) 

0657:  Correction  tape  has  been  read  In  correctly,  RUN  from 
here  to  read  tape  to  be  corrected. 

1067:  WAI  pseudo-op  on  the  original  tape  has  been  encountered. 

If  more  Input  Is  to  be  processed,  RUN.  If  no  more  Input 
Is  to  be  processed,  make  the  A-Reg.  non-sero  and  RUN. 

This  will  complete  output  punching  and  Indicate  If  all 
corrections  have  been  processed. 

1106:  END  pseudo-op  has  been  encountered  or  WAI  has  been 

previously  encountered.  The  Input  tape  has  been  edited 
completely.  This  Is  the  final  normal  stop. 

3.  Space  required 

a.  Program  plus  transient  storage  occupies  locations  0000  through  1232. 

b.  Input  from  the  correction  tape  occupies  locations  1467  through  7776 
as  needed. 

c.  Locations  1267  through  1466  are  reserved  for  output  characters. 
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7.  ERROR  STOPS  (OCTAL) 

0512:  There  was  an  error  In  the  edit  tape;  a  line  was  referenced 

Incorrectly.  Continuation  will  cause  the  current  correction 
code  to  be  bypassed  and  the  next  to  be  processed. 

0572:  Computer  capacity  for  holding  the  corrections  has  been  exceeded. 
Corrections  must  be  reorganized  Into  two  or  more  passes. 

0755:  A  non-dlglt  character,  with  the  exception  of  blank,  space,  and 
delete  code.  Is  present  In  the  additive  field  of  a  correction 
code  line.  Correction  tape  must  be  corrected. 

1032:  No  correction  code  found  -  machine  error. 

1057:  An  Illegal  edit  code  (outside  the  set  d,  1,  r,  z)  has  been 
encountered.  Restart  after  correcting  correction  tape. 

1107:  Corrections  not  completed.  RUN  to  punch  out  correction  code 
not  processed. 

1207:  Final  error  stop  after  1107  has  been  reached. 

10.  Input  and  Output  Formats 

FLAP  and  QSAS  formats  may  be  used  on  the  tape  to  be  corrected.  The 
format  of  a  correction  specification  line  on  the  correction  tape  Is  as 
follows : 

a.  Tab 

b.  A  letter  of  the  set  d,  1,  r,  z  where 

d  -  delete.  The  delete  code  followed  by  two  minus  signs  (--) 

In  the  address  field  and  n  In  the  additive  field  will 
cause  n  lines  of  Information  to  be  deleted  from  the  sym* 
bollc  paper  tapes. 

1  ■  Insert 
r  ■  replace 

z  ■  end  of  correction  tape 

c.  Tab 

d.  Location  symbol  on  original  tape 

e.  Tab 

£.  Pure  decimal  digit  address  relative  to  the  location  symbol.  The 
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abience  of  a  location  aymbol  meana  that  thla  ntonerlcal  quantity  la 
an  absolute  line  count. 

g.  Carriage  Return 

The  following  example  llluatratea  formats  of  Input  and  output  tapes. 
Symbolic  tape  to  be  corrected: 


abed 

Idf 

qzr 

adn 

22 

abf 

qxr 

atl 

entr 

Idf 

02 

Jfl 

02 

next 

subr 

next 

aod 

entr 

zjf 

01 

jpi 

xyz 

hit 

00 

end 

Corrections  to  be  applied: 

r 

abed 

1 

add 

XYZ 

d 

— 

3 

1 

abed 

7 

aod 

stu 

zjf 

05 

d 

vea 

2 

d 

next 

1 

d 

1 

z 

Corrected  Symbolic  Tape: 

abed 

Idf 

qxr 

add 

xyz 

Jfi 

02 

next 

aod 

stu 

zjf 

05 

hit 

00 

end 

(  ) 
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11.  Timing:  Limited  by  paper  tape  reader  and  paper  tape  punch. 

12.  Cautions  to  user: 

a.  Tape  to  be  corrected  must  begin  with  a  carriage  return. 

b.  Tape  containing  the  corrections  must  begin  with  a  carriage  return. 

c.  Any  character  in  the  additive  field  of  the  correction  specification 
line  that  is  not  of  the  set  (null,  space,  digit,  delete  code)  will 
cause  an  error  stop. 

d.  The  additive  field  of  the  correction  specification  line  may  be 
terminated  only  by  a  carriage  return. 

e.  The  correction  specification  line  identification,  l.e.,  the  symbol 
and  additive  fields,. is  always  relative  to  the  original  program  list¬ 
ing. 

f.  When  the  block  delete  code  Immediately  follows  a  d  or  r  code,  the 
n  lines  following  the  line  referenced  by  the  d  or  r  code  will  be 
deleted. 

g.  When  the  block  delete  code  immediately  follows  an  i  code,  n  lines 
including  the  line  referenced  by  the  1  code  will  be  deleted. 

h.  There  may  be  any  number  (within  the  capacity  of  the  Edit  Program) 
of  consecutive  insertions  or  replacements  following  a  single 
Insertion  or  replacement  code. 

i.  A  replacement  of  line  n  with  m  new  lines  is  equivalent  to  deleting 
line  n  and  Inserting  the  m  new  lines  at  n  +  1. 

j.  An  insertion  results  in  a  line  or  lines  Inserted  AHEAD  of  the  line 
specified  in  the  correction  code. 

k.  The  order  of  corrections  (correction  line  identification^ must  be 
according  to  the  original  list. 

l.  The  symbolic  identification  of  a  line  of  the  original  listing  must 
be  made  either  by  the  location  symbol  of  the  line  Itself  or  by 
relative  reference  to  the  last  symbol  preceding  the  line. 

m.  The  same  line  in  the  original  listing  may  not  be  referenced  by  more 
than  one  correction  code. 

n.  To  facilitate  editing  symbolic  tapes  to  be  assembled  by  FIAP,  a 
plus  or  consa  symbol  in  the  location  Field  of  the  original  tape 
will  be  ignored  as  a  tag. 

14.  Equipsient  configuration:  Minimum  SWAP  160  Computer 
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HI 

IISNTIFICATION 

Title:  Heretic  Tape  to  Flex  Tape  -  Ident.  A3 >02 
Progranmer:  J.  A.  Pedereoa>  April  1961 
PURPOSE 

Convert  80  character  BCD  coded  information  on  magnetic  tape  in  format  of 
OSAP  card  input.  Thla  tape  le  sultiJ>le  for  listing  on  a  Flexovrlter  and 
as  input  to  the  paper  tape  version  of  OSAP. 

USAGE 

1.  Operational  Procedure 

a.  Load  program  tape 

1.  Turn  on  reader  and  Insert  S  028 

2.  Master  Clear 

3.  Set  Load-Clear  switch  to  LOAD 

4.  Run  (P-0000) 

b.  Load  magnetic  tape 

1.  Place  tape  to  be  converted  on  tape  unit 

2.  Select  tape  imlt  1 

3.  Select  CODED  mode 

4.  Set  to  Load  Point 

c.  Turn  on  punch 

d.  Set  P  -  0000 

e.  Run 

f.  Routine  stops  when  end-of-flle  is  read 
3*  Space  Requited:  330q  >■  216^^  locations 

7*  Error  Stops:  Parity  errors  cause  the  routine  to  re-read  tape  three  times 
before  stopping. 

13*  Cautlcms  to  User:  mspeot  first  frsste  on  Flex  tape  output  for  carriage 

return  (43). 


I 
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HENTIFICATION 

Title:  OSAF  Symbolic  Flex  Tape  to  Cards  -  Ident.  A3. 03  (SYNCRD) 

Prograoner:  J.  Enmet  Niir^y,  January  I962 

PURPOSE: 

To  convert  OSAP  Symbolic  Flex  tapes  to  Eollerlth  cards. 

USAGE: 

1.  Operational  Procedure 

a.  Machine  load  bloctal  program  tape  at  zero. 

b.  Clear  console  and  set  any  of  the  desired  suppression  codes  In  the 
A-reglster: 

hOOO  -  suppress  card  sequencing 
2000  -  suppress  reading  and  converting  flex  tape 
(sequence  cards  only) 

If  no  suppression  codes  are  used^  the  program  will  convert  the  Flex 
tape  to  sequenced^  Hollerith  cards. 

c.  load  Symbolic  Flex  Tape  to  be  converted  and  nm. 

d.  After  final  halt,  load  the  next  tape  to  be  processed  and  continue 
as  follows: 

1)  For  continuous  sequencing,  run  from  final  halt  (loc.  170g). 

2)  To  re- initialize,  clear,  set  parameters  In  A-reglster  and  run. 
7.  Error  Stops: 

4lh0  _  too  many  suppression  codes:  suppress  everything. 

4630  -  card  punch  not  ready. 

10 .  Timing: 

Maximum  Punch  speed. 

.  Configuration: 

Minimum  160  or  160-A  computer,  1610  and  ^23  Card  Punch. 


13 


8  Kbroaxy  1963 


4.7 


Bl-(l)-993 


Ah 

IDHTCmcmOR 

Title:  Binary  Loader  for  IFF-33  Iiqput  -  Zdeat.  A4.11A 
Prograanera:  0.  A.  Relaon,  I.  Heeker>  JtQy  196I 

FUBFOSE 

Thla  routine  loads  binary  object  progran  tapea  prepared  by  RiAP  (A1.02). 
Prograaa  loaded  by  this  routine  sore  stored  into  meaury  and  are  ready 
for  execution  by  IFP>33  (Bl.OO). 

The  binary  object  progran  tapea  prepared  by  7IAF  are  relocatable.  This 
aeana  that  If  the  progranner  foUom  certain  rulea,  than  the  RAP  binary 
object  program  can  be  loaded  and  executed  tram  U60  nsanry  locations  other 
than  those  specified  In  the  syaholic  input. 

(JSACB5 


1.  Operating  Procedure: 

This  routine  la  in  7400-7743  of  FPP-33. 

a.  Turn  on  reader. 

b.  Position  RAP  binary  object  progran  tfpe  In  paper  tape  reader. 

c.  Set  (a)  a  b,  lAere  b  Is  the  relocation  constant. 

d.  Set  P  •  7400 

e.  Bun 

f .  Hbasd  Stop : 

p  -  7541  z  -  7700 

At  the  noznal  stop  (A)  «  S  ubere  S  Is  the  l6o4  address  specified 
In  the  K-teza  of  the  BO  pseudo-instruction  in  the  asssaOled 
progran.  If  no  address  is  specified,  then  S  Is  zero,  loxnally 
S  ulll  be  the  starting  address  of  the  progrsn  to  be  slnulated. 

If  S  is  In  the  A  register,  then  running  troai  noznsJ.  loader  stop 
(t34l)  ulll  enter  the  slazlator  and  begin  execution  of  the  progran  Just 
loaded. 


3.  Space  Repilred:  7400  -  7743  of  FPP-33. 


7.  Brror  Stops: 

P  Z 

a.  7404  7701 


b. 


7708 


Beaaon 

Bias  quantity  (b)  Is  greater  than  10000. 

Incorrect  binary  tape  label,  l.e.  the  first 
non-blank  ftrane  encountered  does  not  eontsdn 
punches  in  levels  1  thru  6. 


7kl6 
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10. 


p 

Z 

Reasons 

C.  7507 

7703 

Current  load  address  out  of  range.  ROTE:  FLAP 
is  capable  of  assembl  ing  programs  that  cannot 
be  run  under  control  of  JPP-33. 

d.  7522 

Trek 

CheeksuB  error,  bit  run  to  i^iore  cheeksum 
error  and  go  to  nomal  stop. 

e.  7766 

7713 

Illegal  decimal  nuaiber.  Run  to  get  error 
print-out  as  in  simnlator. 

Timing: 

The  tape  will  be  loaded  at  full  tape  speed  tmless  DEC  pseudo-ops 
were  Included  in  the  assegbly.  When  a  decimal  number  is  encountered, 
the  loader  must  convert  it  to  PPP-33  floating  point  foxmat  before 

storing. 


13.  Equipment  Configuration  -  KlnlauB  16O  Coogputer. 
MEIHQD 


The  loader  exsinlnes  tiro  Anones  of  the  71AF  binary  output  tape  at  a  tlae. 
nie  seventh  level  bits  are  used  to  sigolf^  ehether  the  infomatlon  is  a  new 
load  address,  IPF-33  instructions  to  be  stored,  cheeksuat,  or  a  DEC  nuaiber 
carried  along  by  7LAF. 

IQien  a  load  address  is  encountered,  the  previous  load  address  is  replaced 
by  that  one.  Vben  l6o4  instructions  are  encountered  as  binary  infomatlon, 
they  are  stored  sequentisdly  starting  at  the  last  load  address  specified. 

If  a  DEC  nuHiber  is  encountered,  IlT-33  ccaverslon  routines  are  used  to 
prepare  it  into  fTF-33  floating  point  fomat  and  the  result  stored.  The 
dMcksuB  consists  of  the  last  tm  fraaes  on  the  binary  tape. 


I 


I 


) 


I 


8  February  1963 


1^-9 


TH-(L)-993 


ADI. 01 

IDENTIFICATION 

Title:  Floating  Resident  Service  Library  -  Ident  ADI. 01 

Programmer:  A.  Perro,  December  1961 

PURPOSE 

Load  memory  from  punched  paper  tape  or  the  on-line  electric  typewriter;  or 
dump  the  contents  of  the  memory  on  punched  paper  tape  or  the  on-line  typewriter. 
The  accuracy  of  the  punched  paper  tape  may  be  verified.  Selection  of  Input 
or  output  option  Is  made  at  the  console. 

The  following  subroutines  are  callable  from  the  resident  service  library: 


Bl- Octal  Punch 

Flex  Tape  Verify 

Bl-Octal  Verify 

Type  Load 

Flex  Tape  Load 

Flex  Tape  Punch 

Type  Dump 

USAGE 

1.  Operational  Procedure 

a.  Load  the  program  tape  for  RESERV  as  follows: 

1)  Turn  on  the  reader  and  Insert  the  program  tape  anywhere  on  the 
blank  leader. 

2)  Lift  load  -  clear  switch  In  LOAD  position  and  set  P  -  to  any 
desired  location,  X. 

3)  Press  run  switch. 

4)  Computer  stops 

P  «  X  +  572o 
A  -  4210 

b.  Type  load  -  used  to  store  data  received  from  the  on-line  electric 
typewriter. 

1)  Turn  on  electric  typewriter, 

2)  Put  operation  mode  switch  into  CLEAR  position, 

f  ‘  ' 

3)  Press  operation  mode  switch  Into  COMPUTER  position.  The  ready 

!  light  should  be  on  and  the  Input  request  light  off. 

} 
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4)  Check  to  ensure  input  disconnect  switch  Is  In  center  position. 

5)  Set  F  -  Initial  address  of  RESERV  (X). 

6)  Press  run  switch.  The  status  Indicator  will  Inmedlately  show  an 
Input  (IN)  condition.  The  Input  request  light  and  the  ready 
light  on  the  typewriter  cabinet  will  also  be  on. 

7)  Type  In  Instructions  and  data  using  the  format  described  In  the 
Flex  Tape  Load  program. 

8)  Discrepancy  -  computer  stops 
P  -  X  +  363g 

A  ■  address  of  discrepancy 
Z  -  0000 

To  continue  the  program  press  the  run  switch  after  returning  it 
to  the  center  position. 

9)  End  of  file  code  -  a  period  typed  after  the  last  carriage  return 
causes  the  program  to  stop. 

P  -  X  +  304j. 

Z  -  7700 

10)  To  repeat  the  program  press  the  run  switch  after  returning  It 
to  the  center  position, 

c.  Type  Dump  -  produces  listings  of  programs  directly  on  the  on-line 
electric  typewriter, 

1)  Turn  on  typewriter. 

2)  Put  operation  mode  switch  In  the  CLEAR  position. 

3)  Put  operation  mode  switch  In  the  COMPUTER  position. 

4)  Check  to  ensure  Input  disconnect  switch  Is  In  the  center  position. 

5)  Set  P  ■  initial  address  +  3  of  RESERVE  (X  +  3). 

6)  Press  run  switch. 

7)  After  first  stop  set  bank  selection  In  right  most  3  bits  of  A. 

Run, 

8)  After  second  stop  set  A  >  initial  address  to  be  dumped.  Run. 
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9)  After  third  stop  set  A  ■  last  address  to  be  listed.  Run. 

10)  Type  dump  will  produce  the  specified  listing  allowing  up  to  48 
Individual  listings  on  each  page,  with  a  double  space  preceding 
each  listing  group  whose  Initial  address  Is  divisible  by  eight. 
Each  listing  contains  a  tab  followed  by  (4  digits)  which  Is  the 
Information.  Address  locations  appear  only  at  the  beginning  of 
each  lOg  group  of  listings.  Computer  stops  to  allow  the  operator 
to  change  paper. 

11)  End  of  Page 

P  -  X  +  546. 

A  -  0000  ® 

Z  -  7700 

Continue  by  pressing  the  run  switch  after  returning  It  to  the 
center  position. 

12)  Program  stop  •  typewriter  shows  listing  Is  completed  by  an  end 
of  file  code  (carriage  return  followed  by  a  period). 

P  -  X  +  567. 

A  -  7677  ” 

Z  -  7700 

d.  Floating  Flex  Load  -  load  previously  prepared  Flex  coded  paper  tape 
In  specified  memory  locations. 

1)  Turn  on  reader  and  Insert  tape  to  be  loaded  somewhere  on  the  blank 
leader . 

2)  Set  P  -  Initial  address  +  6  of  RESERV  (X  +  6). 

3)  Press  run  switch  -  program  will  store  and  check  the  Information 
following  the  first  carriage  return  character  on  the  tape. 

4)  Computer  stops  on  finding  a  discrepancy 
P  -  X  +  363g 

A  «  address  at  which  discrepancy  occurred 

z  -  0000 

Program  stop 
P  -  X  +  304g 


5) 


8  February  I963 


4-12 


TM-(L)-993 


Characters  0-7,  carriage  return,  tab,  and  period  are  recognized  by 
the  program.  All  other  non-prlntlng  characters  are  Ignored  by  the 
program.  A  carriage  return  defines  the  beginning  of  a  line. 

Tape  may  be  prepared  In  a  nine  digit  format  giving  the  bank  designa¬ 
tor  followed  by  the  four  digits  of  the  address  followed  by  the  four 
digits  of  the  Instruction  or  constant.  A  space  or  tab  may  or  may  not 
be  Inserted  between  the  address  and  the  data  In  this  format.  An 
eight  digit  format  may  be  used  but  a  TAB  MUST  SEPARATE  THE  ADDRESS 
FRCW  THE  DATA  and  the  program  will  store  the  Information  In  the 
INDIRECT  BANK  which  the  operator  manually  sets.  The  program  always 
takes  the  last  four  characters  and  stores  them  at  the  address 
specified  by  the  first  four  characters. 

Tape  may  also  be  prepared  In  a  four  digit  format  In  which  a  carriage 
return  followed  by  a  tab  followed  by  four  characters  of  data  make  up 
a  line.  The  program  will  take  the  four  characters  and  store  them  at 
the  next  consecutive  memory  location  following  that  at  which  Informa¬ 
tion  was  last  stored.  If  an  Insufficient  number  of  digits  In  either 
format  Is  present  on  a  line,  the  data  on  that  line  will  be  Ignored, 

A  period  appearing  after  a  carriage  return  or  a  tab  Is  Interpreted 
as  an  end  of  file  code  and  will  cause  the  program  to  stop. 

The  following  Is  an  example  of  format  supplied  to  Flex  Tape  Load: 


Address 

Instruction 

Comments  on  Program 

1463 

3051 

1500 

4163 

5410 

6550 

4306 

4310 

0112 

5060 

0277 

1793 

*  (period  causes  pro¬ 

gram  to  stop) 

The  Flex  Tape  Load  program  would  cause  the  following  Information  to 
be  stored  In  memory: 


Location 

1463 

1464 

1465 

1500 

1501 
4306 
5060 


Contents 

3051 

4163 

5410 

6550 

4310 

0112 

0277 
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The  last  entry  Is  missing  because  the  program  ignored  the  9  and  rejected 
the  data  because  only  three  recognizable  characters  were  left  on  the 
line. 

e.  Flex  Tape  Punch  -  produce  paper  tape  listings  of  a  program  suitable 
for  off-line  printing  on  a  Flexowrlter  or  re-entry  into  the  computer 
via  the  Flex  Load  option. 

1)  Turn  on  punch. 

2)  Set  P  -  initial  address  +  14  of  RESERV  (X  +  14) 

3)  Press  run  switch 

4)  After  first  stop  (X  +  413)  set  bank  selection  In  A.  Run. 

5)  After  second  stop  (X  +  421)  set  A  ■  Initial  address  to  be 
listed.  Run. 

6)  After  third  stop.(X  -I-  424)  set  A  ■  last  address  to  be  listed.  Run. 

7)  Program  stop 
P  -  X  +  567 

Flex  tape  punch  will  produce  the  specified  listings  allowing  up  to 
48  listings  on  each  page,  with  a  double  space  preceding  each  listing 
with  an  address  divisible  by  eight.  Each  listing  contains  a  tab 
followed  by  (4  digits)  which  Is  the  Information.  Address  locations 
appear  only  at  the  beginning  of  each  lOg  group  of  listings. 

f.  Flex  Tape  Verify  -  verify  the  accuracy  of  a  tape  prepared  by  Flex 
Tape  Punch. 

1)  Turn  on  reader 

2)  Insert  Flexowrlter  tape  Into  reader  someplace  on  the  blank 
leader. 

3)  Set  F  -  initial  address  +  11  of  RESERV  (X  -I-  11) 

4)  Press  the  run  switch.  On  encountering  a  carriage  return  the 
program  will  begin  assembling  Information  according  to  the 
format  rules  given  under  Flex  Tape  Load.  It  will  check  this 
Information  against  the  current  contents  of  the  specified  area 
memory.  To  verify  a  previously  prepared  tape  proper  indirect 
bank  selection  may  be  made. 
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5)  Discrepancy  -  computer  stops 
P  -  X  +  363g 

A  -  address  of  discrepancy 
Z  «  0000 

Press  run  switch  after  returning  It  to  center  position.  Program 
will  continue  to  check  the  rest  of  the  tape. 

6)  Program  stop 

P  -  X  +  304 
Z  -  7700  “ 

g.  Floating  Bl-Octal  Punch  -  punch  out  portions  of  the  160-A  memory 
bl-octal  format. 

1)  Start  punch  motor 

2)  Master  Clear 

3)  Manually  set  the  last  octal  digit  of  A  to  the  memory  bank  from 
which  you  wish  to  punch  data 

4)  Set  P  -  Initial  address  +  17  of  RESERV  (X  +  17) 

5)  Press  Run  switch 

6)  Computer  stops 

P  -  X  +  44 
Z  -  7700 

7)  Set  A  >  Initial  address  of  the  region  to  be  punched 

8)  Press  run  switch  after  returning  It  to  the  center  position 

9)  Computer  stops 

P  •  X  +  47 
Z  -  7700 

10)  Set  A  ■  last  address  to  be  punched 

11)  Press  run  switch  after  returning  it  to  the  center  position 

12)  Program  stop 
A  •  X  +  36 
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h.  Floating  Bl-Octal  Verify  -  verify  accuracy  of  a  tape  prepared  by  Bl- 
Octal  Punch. 

1)  Set  P  -  Initial  address  +  21  of  RESERV  (X  +  21) 

2)  Set  A  >  first  data  word  location  on  the  tape;  set  Indirect  bank 
to  the  bank  where  data  Is  to  be  verified 

3)  Turn  on  reader  and  Insert  tape 

4)  Press  run  switch 

5)  Discrepancy  stop 
P  -  X  +  143 

A  ■  address  of  discrepancy 
Z  -  0000 

6)  Format  error  on  the  tape 

P  -  X  +  141 
Z  •  0 

The  tape  must  be  removed  because  the  computer  will  not  accept  the 
remainder. 

7)  Program  stop 

P  -  X  +  104 
Z  -  7700 

2.  Space  Required;  572^  ■  ^^®10 

3 .  Timing 

Output,  approximately  110  frames  per  second 
Input,  approximately  350  frames  per  second 

4.  Cautions  to  User;  Off  line  prepared  Flexowrlter  tapes  must  start  with  a 
carriage  return,  code  45;  Input  from  typewriter  must  also  start  with  a 
carriage  return. 

5.  Equipment  Configuration;  Standard  160-A  Computer. 
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Dl. 

IDENTIFICATION 

Title:  Magnetic  Tape  Bootstrap  160-A  -  Ident.  ADI. 02 

Progrannner:  David  W.  Mcllhenny,  May  1962>  Fleet  Numerical  Weather  Facility 

PURPOSE 

The  bootstrap  program  Is  used  to  keep  Itself  and  programs  or  data  on  magnetic 
tape  (163-2  units)  In  order  to  eliminate  paper  tape  handling.  The  bootstrap 
may  be  loaded  and  blocks  written  or  read  by  simple  console  entry  of  pertinent 
data. 

USAGE 

1.  Operational  Procedure 

a.  To  load  bootstrap  from  magnetic  tape: 

(1)  Magnetic  tape  with  bootstrap  rewound  on  unit  4 

(2)  Set  tapes  to  binary 

(3)  Enter  the  following  sequence  beginning  at  location  0000: 

7500 

2134 

7203 

7400 

7700 

7100 

(4)  Clear,  start  at  0000 

b.  To  load  bootstrap  from  paper  tape: 

(1)  Clear,  load  paper  tape  at  location  7100  using  binary  loader. 

c.  To  write  a  record  on  tape: 

(1)  Clear,  P  ~  7100  set  A  «  bank  number,  start 

(2)  P  ■  7110  set  A  ■  first  address  of  block,  start 

(3)  P  ■>  7113  set  A  <■  last  address  +  1  of  block,  start 

(4)  P  ■  7117  set  A  ■  record  number,  start 

d.  To  read  a  record  from  tape: 

(1)  Clear,  P  ■  7220  set  A  ~  record  number,  start 
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3.  Space  Requlrementa 


277  words  octal 
191  words  decimal 

program  is  assembled  In  bank  0  7100-7377 

7.  Stops 

a.  7332  -  Final  stop  both  read  and  write 

b.  7307  -  Read  end  of  file 


On  Read;  This  block  is  not  on  the  tape. 

On  Write;  There  are  not  enough  records  to  make  this  the  one 

desired. 


c.  If  tape  rocks  continually,  the  program  is  having  difficulty  in  reading 
or  writing  the  record  desired.  Put  stop  switch  4  up  to  stop  rocking. 
The  program  will  stop  at  P  ■  7271  with  the  type  of  error  in  the  A 
register: 

A  ■  0004  parity 

A  ■  0020  read  end  of  file;  record  is  not  there 
A  ■  any  other;  check  sum  is  bad  on  read 

9.  Tape  Mounting 

The  bootstrap  uses  tape  unit  4  in  binary. 


12.  Cautions  to  User 


a.  The  bootstrap  cannot  be  used  to  load  Information  into  locations 
7100-7377  of  bank  0.  It  may  be  reassembled  to  do  so,  but  must  be 
in  bank  0. 

b.  Do  not  try  to  Insert  a  block  in  the  middle  of  a  series.  For  example 
do  not  rewrite  block  3  of  a  tape  containing  5  blocks;  the  ones 
subsequent  to  3  would  be  destroyed. 

c.  Do  not  step  through  program. 

14.  Equipment  Configuration:  Minimum  SWAP  160-A  and  163  Tape 


METHOD 


1.  A  maximum  of  safeguards,  such  as  extra  waits,  are  Incorporated  for 
dependability.  Records  are  checked  for  both  lateral  parity  and  long¬ 
itudinal  checksum. 
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2.  The  bootstrap  writes  Itself  on  the  tape  as  a  "flag"  record  when  writing 
block  0.  It  searches  for  Itself  in  order  to  synchronise  when  reading. 
Blocks  are  written  with  a  5  word  identification  record  preceding  each 
one.  An  end  of  file  Is  written  after  a  block  when  the  write  operation  Is 
performed. 
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D2. 

wmnnciaim 

Title:  Simultaneous  Card-to-Tape,  Tape-to-Frlnt  Program  (SIMO) 
Ident.  AD2.0e 

Programmer:  Larry  Broun,  June  I962,  Control  Data  Corporation 


hjkpose: 

Provides  a  peripheral  processing  system  vhlch  fully  utilized  the  capabilities 
of  the  l60>A  Computer  by  running  a  caxd-to-tape  cq^ratlon  simultaneously 
vlth  a  tape-to-prlnter  operation.  About  90)(  of  warlmiim  speed  is  obtained. 

USA(S: 


1.  Operational  Procedures 

Load  the  bl-octal  tegpe  Into  bank  0  starting  at  0000.  Master  Clear,  start 
at  0000  vlth  OHOT  In  the  A-reglster  as  In  2  belov. 

2.  Parameters 

ONST  as  follows: 

0-0 

W  «  1  Caxd-to-tape 

-  0  no  card-to-tape 

X  a  1  Tape-to-prlnt 
a  1  no  tape-to-prlnt 

Y  a  0  use  carriage  control  for  tape-to-prlnt 

a  1  single  space  tape-to-prlnt 

a  2  double  space  tape-to-prlnt 

a  3  triple  space  tape-to-prlnt 

The  Y  parameter  may  be  entered  even  though  tape-to-prlnt  Is  not  selected 
(l.e.,  X  a  0).  13i1b  allows  subsequent  starting  of  the  tape-to-prlnt 
operation  by  means  of  Juiqp  switch  control  (See  10. c. 2.). 

At  each  program  stop  A  -  0000.  A  new  QXZZ  parameter  may  be  Inserted 
In  A  at  that  time,  or  A  may  be  left  0000  to  continue  using  the  previous 
parameter.  See  Appendix  4  for  full  discussion  of  program  stqps. 

3.  Space  Required 

41230  <■  locations  in  bank  0 

14640  a  820^^  locations  In  bank  1 

3.  Bank  Allocation 

^pon  entry  to  the  routines  the  direct.  Indirect,  and  buffer  bank  settings 
have  been  set  to  1,  and  the  relative  bank  Is  0.  Do  not  dungs  these  bs^ 
settings. 
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7>  Program  stops 

Ten  program  stops  are  provided  to  Indicate  various  error  conditions, 

Jump  switch  settings,  and  end-of -operation  conditions.  See  Appendix  4 
for  discussion  of  stops. 

9.  Tape  Mountings 

a.  Output  tape,  for  ccurd-to-tape  operations,  selection  1. 

b.  Input  tape,  for  tape-to-print  operations,  selection  2. 

10.  Fomats 

a.  Input,  card-to-tepe 

1.  BCD  cards.  Standard  80-column  card  with  punching  as  per 
standard  Hollerith  set. 

2.  Binary  cards.  STandard  column  binary  card,  7-9  punch  in 
column  1. 

3.  End-of-Flle  Card 

Column  1  and  2  7-8  punches 

Column  3  axid  4  12-1-4-7  punches 

Columns  5  throu^  5  blank 

The  end-of -file  card  terminates  the  card-to-tape  operation,  after 
causing  an  end-of -file  mark  to  be  written  on  tape  1.  (During 
simultaneous  operations  the  tape-to-prlnt  portion  will  continue.) 
See  Appendix  1  to  change  the  end-of-flle  card  comflguratlons. 
Cards  are  read  from  primary  read  station  only. 

b.  Output,  card-to-tape 

1.  BCD  card  images 

80  character  BCD  image  in  even  parity  plus  8  look-ahead 
characters  as  follows: 

20  20  20  20  20  20  20  20  if  the  next  image 
on  tcpe  is  a  BCD  image  in  even  parity. 

11  11  07  07  20  20  20  20  if  the  next  image 
on  tape  is  binary  image  in  odd  parity. 

2.  Binary  card  images 

i60^q  character  binary  image  in  odd  parity  plus  8  lOOk-ahead 
chaHcters  as  follows 

00  04  00  00  00  01  00  00  if  the  next  image  on  tape 
is  a  BCD  image  la  even  parity 

00  05  00  01  00  09  00  04  if  the  next  image  on  tape  is  a 
blnaury  image  in  odd  parity 
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See  Appendix  2  for  dleeuseloa  of  the  eharmeter  elM 

of  the  laagee,  aad  of  ehaaging  or  ellaiaatiaf  the  lodk-aheed 
characters. 

3.  Ispat  fonaty  tape-to-prlnt 

Maxlmna  120..  character  record*  in  even  parity.  An  end-of-flle 
aurk  or  end'^of  tape  reflective  marker  vlll  stop  the  tape-to- 
prlnt  operation  (duxlng  slnultaneous  pperatlons  the  eard-to- 
tape  portion  will  continue. )  If  the  carriage  control  feature 
of  the  program  Is  used,  the  first  ehanmeter  of  the  record  Is 
the  control  character. 

4.  Output  format,  tape-to-prlnt 

Martimm  120..^  character  llne(sane  length  as  Input  record) 
printed.  Tat  first  tape  ehaimeter  In  print  position  1,  the 
second  In  print  position  2,  etc.  The  first  character  Is  printed 
as  blank  If  carriage  control  mode  Is  selected. 

5.  Carriage  control  character. 

The  program  recognized  the  followlag  carriage  control 
characters. 

Olg  Skip  to  Fbzmat  Channel  8  (page  eject) 

02q  Skip  to  Ibmat  Channel  7 

120  Double  space 

200  Single  space 

4O0  Triple  ^ce 

All  spcuslng  aad  charnel  skipping  Is  Interpreted  as  spacing 
before  printing. 

Provision  has  been  made  to  allow  Monitor  channel  skipping  aad 
other  Interpretations  of  carriage  control  eharaoteza. 

See  Appendix  3  .  for  full  discussion. 

c.  Selective  Stop  aad  Selective  Amp  Switches 

1.  Selective  Stop  Switches:  Sot  used. 

2.  Selective  Anq>  Switches: 

#  1  >  In  the  Up  position  program  will  start  simultaneous  operations 
if  a  card-to-tape  only  or  a  tape-to-prlnt  only  operation 
is  In  progress.  Ibr  this  option  to  be  available,  Jtmp 
switch  #1  must  be  at  least  momentarily  In  the  neutral 
position. 

#2  -  lot  used 

f4  -  In  the  UP  position, progrmt  will  stop.  See  Appendix  4. 
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II.  Timing 

a.  Card- to- tape  operations:  65O  cards  per  mixmte. 

b.  Tape-to-prlnt  operations:  1000  lines  per  minute,  maxLnum. 

c.  Simultaneous  operations  proceed  with  an  overall  speed  of 
approximately  90-931^  of  maximum. 

13.  Cautions  to  User 

Do  not  step  throvigh  this  routine.  Do  tu>t  take  cceqputer  out  of  HUN. 
To  stop  the  program  use  Jung)  switch  #4  as  In  10. c. 2. 

14.  Equipment  Configuration 


160^  - 

Kinlmum  SNAP  Configuration 

163-2  - 

on  noimal  channel 

1612 

on  nontal  chaxmel 

1610 

(with  088  card  reader)  -  buffer  channel 

Tapes  are  written  and  read  in  character  (6-bit)  saode  only. 


A  Note  on  the  Programming  Appendices 

Provision  has  been  made  for  this  program  to  be  easily  adapted  to  meet  the 
requirements  of  any  Installation.  Changes  may  be  made  to  the  routines  for 
1)  the  end-of-file  card,  (2)  the  look-ahead  characters  and  tape  record  length, 
and  (3)  tape-to-prlnt  carriage  control  interpretations.  Each  of  these  has 
been  placed  near  the  end  of  the  program  so  that  they  may  be  fouztd  easily 
by  the  prograamer. 

Upon  entry  to  the  routines  the  direct.  Indirect,  and  buffer  bank  settings 
have  been  set  to  1,  and  the  relative  bank  Is  0.  Do  not  change  these  bank 
settings.  Except  iftiere  noted,  contents  of  the  A-reglster  upon  entry  or 
leaving  these  routines  need  not  be  guaranteed. 

Temporary  storage  for  the  routines  may  be  made  available  by  reserving 
locations  in  the  relative  bank  0,  and  referencing  them  with  relative  forward 
and  relative  backward  ande  Instructions.  Direct  storage  locations  00  and  77 
are  also  available,  as  these  are  not  used  by  the  main  program.  In  addition, 
at  least  two  other  direct  storage  locations  may  be  changed  by  the  prognumaer, 
as  noted  in  the  appendices.  Iftileas  otherwise  allowed,  changing  of  other 
locations  is  not  pendtted. 
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ProgramriLiui  for  the  Etad-ef-Flle  Card 


She  End-of-FLle  card  anut  appear  aa  an  illegal  BCD  eard»  that  la,  not  both^ 
rowa  7  tm  9  in  eolani  1  nay  Im  punched  at  at  leaat  one  non-Hollerith  punch 
cenbiiaatlon  miat  appear  on  acne  card  column. 


When  the  illegal  punch  coohlnatlon  if  recogalKcd,  the  progran  tranafera  to 
location  CDCR9  to  detendne  if  thla  la  an  End-of-Tile  card  or  an  illegal  BCD 
card.  The  check  la  to  he  made  on  the  actual  card  laage  in  nenoxy.  Direct 
atorage  locatlona  TLCX!  eontaina  the  addreaa  of  the  flrat  12-hit  uord  (9  row 
left)  of  the  card  Inage.  Uie  cajrd  Inage  ia  located  in  S^i'  conaeeutlve  addreaaea 
and  ia  to  be  exaailned  to  detemine  if  it  ia  that  of  an  Bad-of-Flle  card. 


If  the  card  l3M>ge  ia  that  of  an  Edd-of-File  card,  return  to  the  naln  progran 
at  location  BOFCRD;  otherwiae  return  to  location  ERRCRD. 

Direct  atorage  locatlona  available  for  changlag:  CERR  and  TB1P2. 
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APPENDIX  2 


PTOgramming  for  look-ahead  characters  aad  taxw  record  length. 

The  length  of  the  tape  record  written  hy  the  eard-to-tape  portion  of  the 
prograa  la  caiig)08ed  of  two  parts:  (l)  the  number  of  characters  In  the  tape- 
image  -  80  for  BCD  records  aad  160^^  for  binary  records^  plus  (2)  the  number 
of  look-ahead  characters.  The  tape-record  character  length  Is  kept  In  direct 
storage  locations  BCDIKQ  for  BCD  records  aad  BINLNG  for  binary  records.  These 
direct  storam  locations  are  set  during  normal  start  at  0000  procedures,  at 
locations  (0)0010  and  (0)0013.  The  record  length  may  be  changed  by  the  pro¬ 
grammer,  but  records  longer  than  176^g  chareuiters  are  forbidden. 

The  main  program  detemlnes  the  card  type  (BCD  or  binary)  of  the  current  and 
next  card  Image  and  following  the  conversion  to  a  tape  Image  transfers  to  one 
of  the  four  following  routines  for  Insertion  of  look-ahead  characters: 

location 

BCDBCD  -  If  a  BCD  card  Image  will  follow  current  BCD  card  Image 

BCDBZN  -  If  a  binary  card  Image  will  follow  current  BCD  card  Imeige 

BINBIN  -  If  a  binary  card  Image  will  follow  current  bliuay  card  Image 

BINBCD  -  If  a  BCD  card  image  will  follow  current  binary  ccod  Image  '> 

The  look-ahead  characters  are  to  be  stored  In  consecutive  locations,  1  character 
to  a  computer  word,  placed  In  the  low-order  6  bits  of  the  word.  (Tapes  are 
written  In  the  chsirocter  node  only. )  Direct  storage  location  STORE,  upon  entry 
to  the  above  routines,  contains  the  location  to  store  the  first  character. 

It  is  not  necessary  to  have  any  look-ahead  characters;  the  tape  record  length 
may  be  set  to  80  characters  for  BCD  cards  or  l6o..  chvacters  for  binary  cards. 

After  setting  the  look-ahead  characters,  the  routine  must  return  to  program 
location  CDCKl. 

Direct  storage  locations  available  for  changing:  STORE  and  TEliIP2. 
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APPENDIX  3 

Pfoitt**"'i"ff  for  control  of  the  l6l2  printer  earrlaae  control  tape. 


If  carriage  control  of  the  tape-to-prlnt  portion  of  the  progm  la  aeleetea. 
(parameter  Y  -  0  aa  In  C.2  ahlve),  the  progrma  tranafera  to  location  TOCENT 
for  each  tape  record  read  vlth  the  control  code  In  both  the  A-reglater 
and  direct  atorage  location  TCKSVB. 

The  TCKERI  routine  la  to  Interpret  the  control  character  and  return  to  the 
main  program  at  location  TCC&K5  with  a  parameter  In  the  A-reglater  aa  foUova: 


A  -  0000 
A  -  4000 
A  -  2000 
A  >  1000 
A  -  0400 
A  -  OOPO 


-  alngle  apace 

-  aklp  to  foxnat  Channel  8  (new  page) 

-  aklp  to  Pbnaat  Channel  7 

-  aklp  one  line  (double  apaelng) 

-  aklp  two  Unea  (triple  apaelng) 

-  aklp  to  Monitor  Channel  P 


All  code  a  are  Interpreted  aa  apaelng  before  printing.  Normal  alngle  apMlng 
alwaya  followa  every  line  printed.  Skipping  to  Monitor  Channela  1-6  la  for 
the  furrent  tape  record  only;  the  aeleelion  la  removed  for  aubaequent  recorda. 

If  earrlam  control  mode  la  not  aelected  (l.e..  If  parameter  Y«l>  2  or  3  in 
C.2  above)  the  TC3Q9RT  routine  la  not  entered.  Inatead  the  program  mmlntalna 
an  Internal  count  of  the  noaiber  of  Unea  per  page  and  page  ejects  dhen 
necessary.  The  number  of  lines  used  per  page  la  stored  In  direct  storage 
location  TiTTUBB  and  la  set  daring  aormaO.  start  at  0000  procedures  at  location 
(O)  0005.  This  parameter  amqr  be  changed  If  reqjolred. 
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AFESHDXX  3  (Cont. ) 

StOD  Location 

If  AmOOOO  upon  restart 
will  continue  with 

Beason  for  start 

PBGM  CABD-TO-TAPE  CULT  OFERAHOHS 

0063 

Card-to-tape 

Tape  write  EOT  or  bad 
spot  on  tape 

0066 

Card>to-tape 

E-O-F  card  or  Illegal 
BCD  card  read 

0071  ♦ 

Card-to-tape 

Jump  switch  4  set 

FROM  TAFE-TO-PBUrr  ONLY  OFERAnOHS 

0074 

Tape-to-print 

Read  tape  EOF  or  EOT 

0077 

Tape-to-prlnt 

Junp  switch  4  set 

MISCELLANEOUS 

0102 

Executes  a  start  at 

0000  operation 

Illegal  parameter 
(W-X-O) 

*  Ibr  the  two  stops  at  0060  sod  0071  a  card  has  been  read  and  Its  Image  is 
in  mesiory.  If  A  Is  non>zero  \Q>on  restart  and  If  parsamter  V-0,  the  card 
image  will  not  be  processed.  A  start  at  0000  aeqjuence  will  always  cause  loss 
of  any  Information  In  core  meanry. 
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Program  Stops 

Any  tape-to-print  operation  started  by  the  program  has  been  ccs^Ieted  at  the 
time  of  all  program  stops.  All  non-end-of-flle  tape  records  read  have  been 
printed  and  the  read  tape  Is  In  position  to  continue  reading  with  the  next 
record.  If  an  end-of-tape  reflective  marker  has  been  encountered^  the  tape 
is  In  a  rewind  unload  status. 

A  card  has  been  read  and  Its  Image  Is  In  core,  but  has  not  been  processed  at 
the  time  of  the  switch  4  stops  (OO6O  and  OOTl).  At  all  other  stops  no 
useable  card  lUnage  Is  In  memory. 

Poliowing  the  processing  of  an  end-of-flle  card,  the  write  tape  la  positioned 
Immediately  after  the  end-of-flle  mark  written.  After  the  error  conditions 
have  been  noted,  the  loss  of  Information  is  Inevitable  and  the  position  of 
the  write  tape  or  of  cards  In  the  card  reader  cannot  be  predicted.  If  an  end> 
of-tape  reflective  marker  has  been  encountered,  the  tape  Is  In  a  rewind  unload 
status,  but  at  least  one  record  has  been  written  beyond  the  end-of-otape  marker. 

At  each  stop  the  A-reglster  is  0000.  If  the  A-reglster  Is  0000  upon  restart 
the  program  will  continue  as  per  the  chart  below.  If  the  A-register  Is  non> 
zero,  the  value  will  be  Interpreted  as  a  new  CWXX  parameter  (see  lO.e.2. 
above). 

Stop  Locations 


If  AaOOOO  \zpon  restart 
will  continue  with 

mu  SDtlLIIAHEOUS  OPBRAIIOHS 

Reason  for  stop 

0047 

Simultaneous 

Tape-to-prlnt  over  and 
either  tape  write  EOT 
or  bad  spot  on  tqpe. 

0052 

Tape-to-prlnt 

Tape  write  BOI  or  bad 
spot  on  tape 

0055 

Simultaneous 

Tape-to-prlnt  over  and 
either  E-O-F  card  or 
illegal  BCD  card  read. 

0060  * 

Simultaneous 

Jmp  swltah  4  set 
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D2. 

IDENTIFICATION 

Title:  Peripheral  Integrated  Utility  System  (PIUS)  -  Ident.  AD2.03 
Progranmer:  E.  J.  Rosenberg,  July  1982,  System  Development  Corporation 

PURPOSE 

To  provide  a  program  to  correlate  and  control  a  library  of  16OA  routines 
in  an  executive  utility  system. 

USAGE 

1.  Operating  Procedures 

A.  General  (applies  to  any  of  the  following  control  methods) 

1.  Load  P.T.  Bootstrap  at  77^0  in  Bank  0. 

2.  Mount  PIUS  Master  Tape  on  logical  tape  drive  2. 

B.  Typewriter  Control 

1.  Set  selective  Jump  1. 

2,  Clear  and  run. 

3*  Type  in  k  character  name  of  desired  routine.  If  less  than 
4,  teiminate  with  a  period. 

C.  Card  Control 

1.  Place  control  card  in  card  reader 

2.  Make  card  reader  ready 

3.  Clear  and  run. 

D.  Program  Control 

1.  Either  the  subroutine  "CALL"  (see  appendix  l)  or  one  of 
similar  nature  must  be  assembled  with  the  controlling  program. 

2.  The  following  locations  in  bank  1  must  be  respected: 

70  «  Any  parameters  necessary  in  "A"  upon  entrance  to 

requested  routine. 

71  ■>  0  -  to  preclude  card  read  selection 

72  »  BCD  code  for  1st  2  cheuracters  of  requested  routine 

(assembly  mode) 

73  ■  BCD  code  for  2nd  2  characters  of  reqjuested  routine 

(idiere  name  Is  of  less  than  4  characters  substitute 
O's  in  lieu  of  BCD  20  code) 

74  -  1  -  flag  to  PIUS  to  indicate  program  control 

75  «  Relocation  address  of  requested  program  (where  a  applicable). 
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3*  Program  utilise  this  calling  sequence  oast  consider  bank 
selection  (as  listed  in  the  directory)  of  desired  routine 
when  Juaping  to  it.  The  relatiTs  bank  of  the  called  routine 
must  be  the  same  as  that  of  the  controlling  program. 

4.  In  the  case  of  OSAS  store  the  I/O  configuration  selections  in 
72  and  73,  i.e.,  they  become  the  routine  name. 

NESSAOES 

A.  Typewriter 

1.  NOT  A  CONTROL  CARD.  No  asterisks  in  column  1. 

Make  corrections  and  run. 

2.  PROOBAM  REPEREBCE  ERROR.  !Ihe  program  requested  is  not  in 
directory.  Try  again. 

3.  READ!  TEEI/O  EQUIFNERT  AND  RUN.  I/O  routine  has  been  selected. 
Stop  and  wait  for  magnetic  tape,  etc.  Run  to  continue. 

4.  ENTER  PABANEirEBS.  Vhile  luder  typewriter  control,  you  must 
key  into  "A"  desired  parameters  and  run. 

3.  RELOCATE  AT.  Type  in  relocation  address  and  run.  If  none,  run. 
6.  TZPE  IN  YOUR  I/O  SEIECTION  AND  RUN.  OBAS  has  been  requested. 
Type  in  your  I/O  configuration  amd  run. 

B.  Printer 

1.  Control  card  image. 

ERROR  STOPS 

3311  -  A  card  other  than  a  control  csud  has  been  read.  Clear  the 

card  reader,  correct  the  control  card,  return  to  reader,  and  run. 

NORMAL  STOPS 

3706  •  Stop  to  (□J.ow  I/O  selection  to  be  made.  Run  to  continue. 

3743  -  Stop  to  allow  input  of  Parameters.  Run  to  continue. 

TAPE  AS8I0NMERTS 

The  PIUS  MASTER  will  be  assigned  to  logical  tape  drive  #2.  Consists 
of  1  file  with  X  t  2  records.  (X  ■  #  of  separate  routines  and  programs 
lacluded.)  The  first  record  is  PIUB  Control,  the  secrad  record  is  the 
directozy. 
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CONTROL  CARD 
Foxnat: 


Columns 

1 

3-6 

9-12 

23-28 


Contents 

Asterisks 

Routine  name  as  designated  In  directory 
Entrance  parameters 
Relocation  address 


JUMP  AND  STOP  KEY  SELECTIONS 
SLJ  1  -  Typewriter  control 

SLT  4  -  Suppresses  control  card  printing  on  l6l2 
METODD 

The  system  consists  of  2  control  records  on  a  magnetic  tape  and  1  paper  tape 
bootstrap  of  locations.  The  bootstrap  Is  loaded  In  hl^  core  of  Bank  1 
and  operated. 

This  bootstrap  loads  the  PIUS  control  program  into  Bank  1  and  cerates  It. 
PIUS  calls  In  the  2nd  record,  the  directory,  'iftilcb  contains  seven  words  for 
each  record  on  the  master  tape  In  the  foUoidng  format: 


First  2  BCD  characters  of  the  program  name. 

Second  2  BCD  characters  of  the  program  name. 

Loading  address 

Last  word  address  +  1 

Coaqplenent  of  the  record  number 

Beginning  address 

Routine  Qualifications  Vis: 


Set  If  this  routine 
is  relocatable. 

(bit  11) 


'set  to  Bank  in^ 
idilch  this  routine 
Is  to  be  loaded, 
(bits  3#  4  &  5) 


'set  If  Entrance 
Parasieters  are 
reared. 

(bit  0) 


It  searches  this  directory  for  the  routine  name  requested  and  reads 
that  routine  into  the  coogniter  as  prescribed  by  the  remaining  five 
words  of  the  directory. 
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BESmCTIONS 

A.  Requires  a  minimum  l6o>A  with  I63  tape  cabinet  and  161  typewriter. 

B.  kay  routines  written  to  be  subject  to  PIUS  control  must  not  use  tbe 
following  locations: 

0-1  Bank  0 

70-77  Bank  1 

7750  -  7776  Bank  0 

C.  Must  not  be  progrsaBed  so  as  to  be  loaded  above  location  $700  of  Bank  1. 
STORAGE  REQUIREMENTS 

A.  Program  427  locations  of  bank  1  (PIUS). 

B.  Storage  200  locations  of  bank  1  (Oirectory), 

C.  Storage  27  locations  of  bank  1  (Direct  Cells-PIUS). 

REFERENCES 

A.  PIUS  Master  Magnetic  Tape-AF/CPL  # 

B.  Symbolic  Deck  AF/CPL  #  (forking  ID 

C.  Assembly  Listing  AF/CPL  § 
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BOOT 


MAIN  PROORAM 
* 

e 

JPB  * 

CALL 

RETURN  JUMP  TO  CAIUNB  SEQUENCE  SUBROUTINE 

IDS 

SPECIFIC  WILL  CONTAIN  THE  BESINHIIIO  ADDRESS 

STF 

2 

OF  THE  REQUESTED  ROUTINE 

JPR 

s 

mx 

RETURN  JUMP  TO  ROUTINE  JUST  LOADED  INTO  STOE. 

CONTINUE 

e 

m 

JPI  ‘ 

1 

RETURN  TO  MAIN  PROGRAM 

0 

RETURN  JUMP  ADDRESS 

CTA 

C0NTB0IJ3  TO  ''A" 

IPN 

7 

BANK  CONTROL  INTERROGATION 

ABN 

10 

STF 

CTA 

L86 

BEL 

IPN 

7 

STF 

CTA 

IP6 

BUFF 

IPN 

7 

Am 

UO 

STF 

CTA 

DIR 

IPN 

70 

Am 

20 

STF 

IND 

LDD 

METERS 

IF  OBJECT  PROGRAM  REQUIRES  PARAMETERS  STORE 

STB 

70 

THEN  IN  LOCATION  70  OF  BANK  1. 

im 

0 

STB 

71 

LDC 

4724 

BCD  CODE  FOR  CHARACTERS  PU 

STD 

72 

LDC 

4400 

BCD  CODE  FOR  CHARACTER  M  ONLY 

STD 

73 

(0  SUBSTITUTED  FOR  BLANKS) 

im 

1 

STD 

74 

SET  FLAG  FOR  PIUS  TO  RECOGNISE  PROGRAM  CONT. 

me 

3000 

STORE  THE  RBLOCiOlIQN  ADDRESS  (WHERE  APPL.) 

STD 

75 

BQU 

PTA 

7751 

THE  PHD  LOCATION  OF  THE  BOOTSTRAP 

Am 

3 

ACJO 

SET  AU.  BANKS  TO  0  TO  OPERATE  PIUS  BOOTSTRAP 

bank  selectioos  are  prerloualy  known  thla  area  aay  be  dispensed  with. 
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APPENDIX  I  (continued) 


JPR  BOOT 
IND  0 

DIR  0 

BUFF  0 

LDC  CALL  1 
0 


RBSBT  INDIRECT  BANK 

THE  SUBROUTINE  HAS  STORED  AN  SRJ  INSTRUC¬ 
TION  HERE 
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IDENTIFICATION 

Title:  167  Card  Read  Routine  *  Ident  AE2.01 

Programmer:  A.  R.  Ferro,  October  1962,  Control  Data  Corporation 

PURPOSE 

Reads  a  Hollerith  or  binary  card  with  the  167  Card  Reader  and  stores  the 
information  either  packed  (12  bits  per  word)  or  unpacked  (6  bits  per  word) 
in  the  lower  half  of  each  word.  The  routine  allows  1*80  columns  to  be  read 
from  a  card. 

USAGE 

1.  Calling  Sequence: 

L- 1  IDN  PARAM 

L  JPL  CARDIN  +1 

Id-2  Starting  location  of  input 

ld-3  Terminating  location  of  input 

Lf4  Return 

2.  Parameters: 

PARAM  -  OOOX  X  -  0  BCD  X  -  1  Binary 

■  OOYO  Y  •  0  Packed  Y  ■  1  Unpacked 

3.  Space  Requirements:  243g  -  ^27^^^  locations. 

11..  Timing:  1.5  milliseconds  times  number  of  columns  per  card  plus  70 
milliseconds  latch  up. 

12.  Caution  to  User: 

No  provision  for  bank  settings  is  made  in  the  routine. 

14.  Equipment  configuration:  SWAP  160-A  computer,  and  167  Card  Reader. 
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FI. 

ICEINTIFICATION 

Title:  Punched  Paper  Tape  lAqplloator  *  Ideal.  Fl.CX) 
Prograomer:  J.  Pederson^  Deoember  i960 


PURPOSE 

This  program  produces  multiple  copies  of  a  given  seven  level  punched  paper 
tape. 

USAGE 

1,  Operation  Procedure 

a.  Enter  Tape 

1.  Turn  on  reader,  insert  FI. 00  tape  and  load  starting  P  ■  0000 

2.  Place  tape  to  be  duplicated  on  the  reader  and  enter  with 

P  a  0000.  Tape  viU  be  read  in  until  succeeding  blazG:  frames 
indicate  the  et:d  of  the  tape, 

3.  Program  Stop 
P  a  021U 

A  a  0000 
Z  a  7701 

4.  If  more  information  remains  to  be  duplicated  press  switch  after 
returning  it  to  center  position. 

3-  Error  Stop  -  More  than  639?  frames  have  been  entered. 

P  .  0206 

A  a  7777 

b.  Verify 

1.  Place  tape  on  reader  and  run  with  P  a  0001 

2 .  Program  Stop 
P  a  0034 

Z  a  7707 

3.  Error  Stop 
P  a  0361 

A  a  0000 

Z  a  7705 

c.  Punch 

1.  Turn  on  Punch 

2.  Set  P  a  0002  A  a  number  of  copies  desired  (in  octal) 

3.  Press  Run  switch 
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4,  Program  Stop 
P  s  0320 
z  .  7707 

The  program  vlll  punch  an  18  inch  leader  between  copies, 
d.  To  Verify  multiple  copies 

1.  Place  tape  In  the  reader 

2.  Set  P  ■  0001;  A  ■  number  of  copies  to  be  verified 

3.  Error  Stop 
P  «  0361 

z  .  7705 

Tear  out  bad  copy.  Master  Clear.  Place  tape  on  the  reader  and 
set  P  ■  0030.  Press  Run  switch.  Alternative  method:  Set 
P  ■  OOOI4  A  ■  remainder  of  the  tape  to  be  verified  and  press  Run 
switch.  Program  Stop  with 
P  .  0034 
Z  r  7707 

The  program  will  copy  up  to  639$  frames  of  seven  level  tape  and 
produce  the  number  of  copies  specified  by  the  A  Register.  It 
also  produces  an  I6  Inch  leader  between  copies.  Use  FI. 01 
for  tapes  greater  than  639^  frames. 

3.  Storage  Requirements:  Program  0000  -  0377 

Tape  image  00400  -  7775 

13.  Eq]aipment  Configuration  >  Minimum  I60  Coaputer. 
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IDENTIFICATION 

Title:  Duplicate  Paper  Tape  -  Ident.  AFl.OO 
Prograinner:  J.  A.  Pederaon,  August  I960 
PURPOSE 

This  routine  duplicates  Information  on  paper  tape  from  the  photoelectric 
reader  to  the  high  speed  punch. 

USAGE 

1,  Operational  Procedure  -  The  routine  floats  and  may  be  loaded  anywhere  In 
memory. 


Load,  set  P  ■ 

any  arbitrary  address. 

7507 

select  reader 

7210 

read  2  frames 

0072 

7505 

select  punch 

7305 

punch  2  frames 

0072 

6506 

go  back 

4102 

reader  code 

4104 

punch  code 

0070 

start  of  I/O 

Master  Clear 

c.  Set  P  -  starting  address  selected 

d.  Turn  on  reader  and  punch 

e.  Place  tape  to  be  duplicated  In  the  reader 

f.  Press  Run  switch 

g.  To  stop  duplication  return  switch  to  center.  The  duplication  process 
stops  automatically  after  the  tape  In  the  reader  has  been  read. 

3.  Space  required  -  12^  *  10^^  locations 

13.  Equipment  Configuration  -  Hlnlmum  160  computer. 
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FI. 

IDENTIFiaTION 

Title:  Punched  Paper  Tape  Duplicator  >  Ident,  FI. 01 

Progranmier:  R.  M.  Olson,  February  1961 

PURPOSE 

This  routine  la  designed  to  reproduce  paper  tapes  of  more  than  6395  frames  by 
placing  the  paper  tape  Image  on  magnetic  tape. 

USAGE 

1.  Operational  Procedure 

a.  Load  Program  Tape  S  025 

1)  Place  S  025  tape  In  the  reader  and  set  P  ■  0050. 

2)  Set  load  switch  and  press  run. 

3)  Program  stop 

P  -  0406 
A  «  2161 
Z  -  0000 

b.  Enter  Tape  to  be  Duplicated 

1)  Place  tape  to  be  duplicated  in  the  reader. 

2)  Load  a  reel  of  magnetic  tape  onto  tape  unit.  Check  the  following 
items : 

a)  Magnetic  tape  unit  1  selected. 

b)  BINARY  parity  selected. 

c)  The  tape  Is  run  forward  past  load-point,  or  Is  set  to  load 
point  and  the  CLEAR  button  has  been  pushed. 

d)  The  magnetic  tape  unit  has  a  green  ready  light  on. 

The  magnetic  tape  units  need  not  be  touched  during  the  rest  of  the 
operations. 
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3)  Sec  F  -  0050 

4)  Press  Run  switch 

5)  Temporsry  progrsm  stop 

P  -  0167 
A  -  0000 
Z  -  7700 

At  this  stop  there  are  two  options: 

a)  If  more  Cape  is  to  be  duplicated;  press  the  Run  switch  after 
returning  it  to  the  center  position. 

b)  If  at  the  end  of  the  Cepe:  Master  Clear,  set  F  ■  0166,  and 
press  the  Run  switch.  This  will  transfer  the  last  partial 
block  of  data  onto  magnetic  tape. 

6)  Final  program  stop. 

P  -  0204 
A  -  2161 
A  -  7700 

7)  Error  Halt  (parity  error) 

P  -  0207 
A  -  2161 
Z  -  7750 

c.  Verify  Master  Tape  and  Copies 

1)  Place  tape  in  reader. 

2)  Set  P  -  0052 

3)  Press  the  Run  switch 

4)  Proper  verify  stop 

P  -  0320 
A  -  2161 
Z  -  7700 

5)  Improper  verify  stop 
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P  -  0316 
A  -  2161 
Z  -  7700 

6)  Error  Halt  (parity  error) 

P  -  0306 
A  -  2161 
Z  -  7752 

d.  Punch  New  Copies 

1)  Turn  on  punch 

2)  Set  P  •  0054 

3)  Press  the  Run  switch 

4)  Program  stop 
P  -  0400 

A  -  2161  ) 

Z  -  7700 

5)  Error  Halt  (parity  error) 

P  -  0376 
A  -  2161 
Z  -  7754 

3.  Space  Required  -  324g  ■  212 locations. 

4.  Temporary  Storage  Requirements  -  locations  0070  through  0076. 

12.  Caution  to  user  -  Make  certain  that  the  magnetic  tape  unit  is  set  to 
BINARY  mode  and  the  Tape  Unit  1  is  selected. 


13.  Equipment  configurations  •  Standard  160  computer. 
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IDENTIFICATION 

Title:  Tape  Leader.  Preparation  -  Ident.  FI. 02 
Prograniner:  J.  A.  Pederson,  August  I960 
PURPOSE 

Used  to  prepare  tape  leaders  which  Identify  program  tapes.  The  characters  0  to 
9,  as  S,T,P,R  can  be  punched  on  a  tape  leader. 

USAGE 

1.  Operational  Procedure 

a.  Load  program  starting  at  location  zero. 

b.  Master  Clear,  turn  on  the  punch  and  start.  The  program  will  punch  two 
frames  of  leader. 

c.  Place  In  A  the  desired  character  to  be  punched  from  the  following  table. 

d.  Push  Run  switch.  The  program  will  punch  the  character  and  stop. 

e.  After  preparing  the  leader  on  the  punch,  run  out  about  two  Inches  and  then 
the  desired  program  may  be  copied. 

If  the  program  Is  Internal  the  resident  service  routine  may  be  used  to 
punch  out  the  Information  from  core  storage.  By  clearing  and  starting 
at  location  0050,  the  Information  on  the  photoelectric  paper  tape  reader 
may  be  repunched  on  the  high  speed  punch. 

Character  Code  In  A  Register: 


0  0 

1  1 

2  2 

3  3 

4  4 

5  5 

6  6 

7  7 

8  10 

9  11 

12 

r  S  13 

T  14 
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Character  Code  in  A  Register  (Cont.) 

P  15 

16 

R  17 

3.  Space  required  311g  »  ^^^10  locations 


4.  Temporary  Storage  Requirements  -  7  locations 
10,  Timing  -  Output  approximately  60  frames  per  second 
14.  Equipment  Configuration  >  Minimum  160  computer 
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IIXIITIFICATION 

Title:  Tape  Copy/Coatpare  -  Ident.  FI. 05 

Prograoner:  John  Steffanl,  August  1962,  Control  Data  Corporation 
PURPOSE 

This  routine  utilises  the  Control  Data  160  or  I60-A  coaputer  to  copy  or 
cosqpare  magnetic  tape  files  on  I63  or  l64  tape  units.  The  operator  has  the 
following  options: 

1.  Copy  or  coapare  operation. 

2.  BCD  or  binary  mode. 

3.  Rewind  load  at  start. 

4.  Rewind  unload  at  finish. 

5.  Up  to  (77)3  files  can  be  copied  or  compared  per  run. 

ROTE:  For  operations  Involving  more  than  (77)0  files,  the  following 
procedure  may  be  followed: 

1.  Enter  control  word  In  Direct  Storage  location  OO67,  (lower 
6-blte  zero). 

2.  Enter  number  of  files  to  check  Indirect  storage  location  0064. 

3.  Set  P  to  0103. 

4.  Press  RUE. 

USACS 

1.  Operational  Procedure 

a.  Clear  core,  set  all  banks  to  zero. 

b.  Set  P-regleter  to  0100. 

c.  Load  bl-octal  program  paper  tape. 

d.  Nouht  magnetic  source  tape,  remove  file  protection  ring,  set  unit 
selection  switch  to  #1. 

e.  Hount  output  or  copy  tape,  set  unit  selection  switch  to  #2. 

f .  Set  both  tapes  to  desired  starting  location  (tapes  must  not  be 
in  a  rewind  unload  state). 

g.  Enter  control  word  into  A-reglster. 

h.  Set  P  to  0100. 

1.  Set  RU1-8IIEP  switch  to  RUl. 

2.  Parameters 

a.  Control  word  bit  structure. 


t 
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Bits  0  tbru  3 

Bits  6  and  ^ 
Bit  8 

Bit  9 

Bit  10 


Bit  11 


a  set  equal  to  number  (octal)  of  files  to  be 
copied  or  coBpared. 

■  set  to  zero. 

a  set  to  1  for  rewind  with  lockout  both  tapes  lAen 
number  of  files  specified  Is  completed. 
z  set  to  0  for  no  rewind. 

z  set  to  1  for  rewind  loeid  both  tapes  at  start 
of  operation. 

a  set  to  0  for  no  rewind  at  start, 
a  set  to  1  for  compare  operation.  Compare  tape  2 
against  tape  1. 

a  set  to  0  for  copy  operation.  Copy  tape  1  onto 
tape  2. 

a  set  to  1  for  binary  coded  Input/output 
a  set  to  0  for  BCD  coded  Input/output. 


Example  control  word  to  compare  3  BCD  files  with  rewind  unload  upon 
coinpletlon,  rewind  load  at  start: 

1)  Bit  representation 

11  10  9  876  5i^3  210 

011  100  000  011 

2)  Octal  representation 

3403 

3.  Space  Required:  (7776)0»  (4094)j^q  locations. 

7.  Error  Stops 


P-reglster 


Explanation 


0214  Record  length  too  long  for  this  routine.  Discontinue 

operation. 

0234  Parity  error  on  Read  Tape  ^^1.  To  re-reiul,  press  BUB 

switch.  To  continue  (with  parity  error  present), 

a)  Master  clear. 

b)  P-reglster  to  0243. 

c)  Press  RUB  switch. 

0261  Compare  operation,  record  length  tape  ^  too  long  for 

this  routine.  Discontinue  operation. 

Compare  operation:  EOF  TAPE  2,  BO  EOF  TAPE  1.  The 
above  condition  Is  the  result  of  either  of  two  causes: 
a)  Tapes  are  not  compatible,  l.e.,  there  are 
more  records  per  file  on  tape  1  than  tape  2; 


0270 
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for  this  case,  operation  should  be  discontinued, 
b)  The  remainder  of  the  file  for  the  output  tape 
Is  on  a  continuation  tape.  For  this  case  a 
visual  Inspection  of  tape  unit  Hz  vlU  show  the 
reel  to  be  nearly  empty.  For  this  case, 
continue  as  follows: 

1)  Rewind  unload  tape  unit  #2. 

2)  Mount  next  output  tape  and  place  in  a 
rewind  load  position. 

3)  Set  P- register  to  0220. 

k)  Press  RUN. 

0301  Compare  Operation:  Record  length  tape  #1  not  equal 

(/)  to  record  length  tape  #2.  Tapes  not  compatible, 
discontinue  operation. 

0307  Compare  Operation:  Parity  error  on  read  tape  fz.  To 

re-read,  press  RUN  switch.  To  continue  (with  parity 
error  present): 

a)  Master  clear. 

b)  Set  P  to  0317. 

c)  Press  RUN. 

0333  Coovare  Operation:  compare  error. 

a)  To  backspace,  re-read  and  compare  again. 

Press  RUN. 

b)  Word  on  tape  #2  causing  error  displayed  in 
A- register.  Address  of  corresponding  word 
on  tape  #1,  located  at  OOUO. 

c)  To  by-pass  compare  error,  set  P  to  0326. 

l)  Master  clear. 

2)  Set  P  to  0326. 

3)  Press  RUN. 

037^  Copy  operation:  End  of  tape  encountered  on  tape  jf^. 

Record  has  not  been  written  on  tape  #2.  EOF  has  been 
written. 

a)  Rewind  unload  output  tape. 

b)  Mount  next  output  tape  and  place  In  rewind¬ 
load  position. 

c)  Press  RUN. 
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0402  Parity  error  on  attempt  to  write  tape  #2.  To  backspace 

and  rewrite^  press  RUH, 

04l7  Copy  operation:  End  of  tape  encountered  on  tape  #2. 

Record  has  been  written  on  tape  #2,  EOF  has  been  written. 

a)  Mount  next  output  tape  and  place  In  rewind 
load  position. 

b)  Press  RUN. 

0443  Compare  operation:  End  of  file  tape  #1,  no  EOF  tape  #2. 

Discontinue  operation. 

0462  Operation  cooq^leted. 

10.  Input  and  Output  Formats 

Input  record  length  should  not  exceed  the  following: 

a.  Copy  operation  (16,624)3  characters. 

b.  Compare  operation  (7> 310)3  characters. 

14.  Equipment  Configuration 

NlnlBun  SNAP  160  or  160-A  coatputer,  l63>2  or  164-2  magnetic  tape 
handler. 


) 
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dEBTlFICATION 

Title:  Tape  Coapare  (8IACO)  -  Ident.  AFI.06 

Programmer:  E.  J.  Boseoberg,  August  1982,  System  Development  Corporation 
PURPOSE 

To  coiqpare  two  BCD  magnetic  tapes  to  insure  similarity. 

USAGE 

Operating  Procedures: 

1.  Machine  load  hloctal  paper  tape  at  0. 

2.  Select  loglced  tape  drives  to  1  azui  2. 

3.  Clear  and  run  from  0. 

Normal  Stops 
P  -  213  A  -  7701 

One  file  has  been  coepared  without  error.  Clear  and  run  to  process 
additional  files. 

P-  220  A  -  7700 

All  files  on  this  tape  have  been  coiqpared,  and  tapes  rewound  to  unload. 
Error  Stops 

P  ■  lUl  End  of  tape  on  drive  #1  has  been  sensed. 

P  ■  221  There  la  a  read  parity  on  drive  #1.  After  3  atteqpts  it  has  been 
unsuccessful. 

P  ■  343  Halt  on  mlscosgpared  records. 

P  ■  399  There  Is  a  read  parity  on  TD  #2.  After  9  attenvts  it  has  been 
unsuccessful. 

MESSACffiS 

Typewriter:  MISCOKPARE 

Indicates  the  latest  read  records  were  not  the  sasie. 

1612  Printer:  The  1st  of  2  lines  printed  is  idiat  was  in  the  card  Image 

of  the  miscQ^pared  record  of  TD  #1.  Tbe  2nd  line  is 
from  TD  #2. 

JIMP  &  STOP  KEYS 

SIB  1  •  will  preclude  rewind  of  tapes  after  1  file  has  been  cos^azed. 

SLJ  1  -  will  suppress  printing  of  card  images  In  cases  idiere  a  l6l2  Is  not 
available. 
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BESTRICTIQRS 

Tapes  oust  be  written  In  BCD  card  (6  bit  hollerlth)  foxnat. 
Hardware 

Mlnlaun  I60-A 

161  Typewriter 

1612  Printer  (optional) 

STORAGB  BBQUIREMENTS 

4230  Storage  locations  of  bank  0. 

6  Constants  In  direct  bank. 


1 
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IDENTIFICATION 

Title:  Flex  Load  and  Flex  Verify  -  Ident.  AF2.00 

Frogrammer :  L.  Kuller,  September  1960 

PURPOSE 

Flex  Load  is  designed  to  read  160  progrmn  tapes  prepared  on  a  Flexowrlter 
or  by  the  Flex  Dump  program  and  store  them  in  memory  at  addresses  specified 
by  the  tape. 

Flex  Verify  is  designed  Co  check  160  program  tapes  prepared  on  a  Flexowrlter 
or  by  the  Flex  Dump  program  against  Che  current  contents  of  Che  160  storage 
locations  as  specified  by  the  tape.  The  program  indicates  any  discrepancies 
that  are  found. 

USAGE 

1.  Operational  Procedure 

a.  Turn  on  reader 

b.  Insert  tape  someplace  on  blank  leader 

c.  Flex  Load  set  P  ■  0400 
Flex  Verify  set  P  -  0401 

d.  Press  Run  switch 

e.  Discrepancy  stop  (Flex  Verify) 

P  -  0434 

A  ■  address  of  the  discrepancy 
Z  -  0001 

f.  Program  Stop 
P  -  0414 

Z  -  7707 

3.  Space  Required  -  177g  “  ^^^10  locations 

4.  Temporary  Storage  Required  -  Locations  0072  through  0077 

12.  Caution  to  User  -  Location  7777  can  not  be  loaded  or  verified  by  these 
programs  unless  it  Is  referenced  in  the  eight  digit  format.  If  7777 
Is  referenced  In  the  four  digit  format  Che  data  will  be  stored  at 
location  0000. 

14.  Equipment  Configuration  >  Minimum  160  Computer 
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IDENTIFiailON 

Title:  Floating  Bl-octal  Punch  and  Floating  Bl-octal  Verify  -  Ident.  AF3.00 

Programmer:  J.  Oden,  June  1961 

PURPOSE 

Floating  Bl-octal  Punch  Is  used  to  punch  out  portions  of  the  160-A  memory  in 
bl-octal  format.  Floating  Bl-octal  Verify  compares  bl-octal  date  on  punched 
paper  tape  with  the  current  contents  of  the  160-A  memory. 

USAGE 

1.  Operational  Procedure 

Master  clear  and  turn  on  the  reader.  Load  the  tape  beginning  at  any 
location  with  the  load-clear  switch  In  LOAD  position. 

a.  Floating  Bl-octal  Punch 

1.  Start  punch  motor 

2.  Master  clear 

3.  Manually  set  the  last  octal  digit  of  A  to  the  memory  bank  from 
which  you  wish  to  punch  data. 

4.  Set  P  *  Initial  address  of  the  floating  bl-octal  routine,  "X" 

5.  Press  Run  switch 

6.  Computer  stops 
P  -  X  +  12 

Z  -  7700 

7.  Set  A  ■  initial  address  of  the  region  to  be  punched. 

‘  8.  Press  Run  switch  after  returning  it  to  the  center  position 

9.  Computer  stops 
P  -  X  +  15 


Z  -  7700 


( 
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10.  Set  A  -  last  address  to  be  punched. 

11.  Press  Run  switch  after  returning  to  the  center  position 

12.  Program  stop 
A  -  X  +  4 

Z  -  7700 

b.  Floating  Bl-octal  Verify 

1.  Set  P  to  the  third  location  of  the  region  containing  the  floating 
bl-octal  routines:  X  2 

2.  Set  A  -  first  data  word  location  on  the  tape 

3.  Turn  on  reader  and  insert  tape 

4.  Press  run  switch 

5.  Discrepancy  Stop 
P  -  X  +  111 

A  ■  address  of  discrepancy 
Z  -  0000 

6.  Format  error  on  the  tape 
P  -  X  +  107 

Z  -  0000 

The  tape  must  be  removed  because  the  computer  will  not  accept  the 
remainder. 

7.  Program  stop 
P  -  X  +  52 

Z  -  7700 

3.  Space  Required:  75.q  113.  locations.  Temporary  storage  requirements: 

None.  This  routine  ooes  not  use  addresses  0-77. 


( 


8  Httewory  ^3 


W-(L)-»3 


13.  Equipment  Configuration  -  Minimum  160-A  computer 
THEORY  OF  OPERATION 

The  Instruction  002X  ■  SIC,  sets  Indirect  storage  bank  control  (1)  to  x.  All 
subsequent  Indirect  storage  references  address  stocage  bank  x.  This  value  x 
Is  manually  set  In  the  last  octal  digit  of  A;  then  the  program  builds  Instruc¬ 
tion  SIC. 

By  using  Instructions  LCN  77  and  LFN  77  the  12  bit  words  are  separated  Into 
upper  and  lower  six  bits.  One  Is  added  to  the  word  after  the  lower  six  bits 
have  been  masked  and  SHA  11  Instruction  given  to  get  seventh  level  format. 
These  are  output  immediately  via  OTA  «  7677  to  avert  the  problem  of  storage 
and  establishing  Initial  and  terminal  addresses  In  this  floating  routine. 

In  the  Floating  Bl-octal  Verify,  the  seventh  level  format  Is  checked,  and 
also  each  word  on  the  tape  Is  compared  with  its  counterpart  In  memory.  Stops 
are  provided  In  the  program  where  format  and  word  discrepancies  occur. 


) 
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F3. 

IDENTIFICATION 

Title:  Memory  Dump  -  Ident.  F3.01 

Progranmer:  G.  M.  Bronsteln,  August  1961 

PURPOSE 

Dump  most  of  memory  on  magnetic  tape. 

USAGE 

1.  Operatlona;  Procedure 

a.  Load  program  tape 

1.  Turn  on  reader  and  insert  S  030  tape 

2.  Master  Clear 

3.  Set  P  -  7511 

4.  Set  Load-Clear  switch  to  LOAD 

5.  Run 

6.  Stop  -  P  -  7776 

b.  Load  magnetic  tape 

1.  Place  magnetic  tape  on  tape  unit 

2.  Select  tape  unit  1 

4.  Select  BINARY  mode 

5.  Set  tape  to  Load  Point 

c.  Set  P  -  7511 

d.  Run 

3.  Space  Required  -  265^  ■  l-^’cations 

13.  Cautions  to  User:  The  routine  dumps  memory  locations  0000-7757.  There 
are  no  parity  checks  made  in  writing  on  tape. 
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14. 


Equipment  Configuration:  Standard  160  with  160  tape  unit. 
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IDENTIFICATION 

Title:  Lletable  Symbolic  Dump  -  Ident.  F3.03 

Programmer:  Don  T.  Miller,  July  1961 

PURPOSE 

To  produce  a  llstable  symbolic  dump  of  a  specified  area  of  core  with  4  %K>rds 

per  Flex  line. 

USAGE 

1.  Operational  Procedure 

The  program  may  be  loaded  anywhere  greater  than  address  1.  The  P  register 
should  be  set  to  the  starting  load  address,  the  starting  address  of  the 
area  to  be  dumped  put  In  the  A  register,  and  the  Run  switch  put  In  the  RUN 
position.  The  program  will  stop  at  the  load  address  +7,  and  the  final 
address  of  the  dump  placed  In  A.  Put  the  Run  switch  In  RUN  and  the  program 
will  punch  Che  required  area  of  core  (In  Flexowriter  code),  punch  a  stop 
code  and  stop  at  Che  load  address  'H7g. 

3.  Space  Used:  436^  >  ^^^10  ^oc^tlons 

9.  Output  Format:  Each  line  will  contain  one  octal  address,  the  octal 

contents,  Che  mnemonic  Instruction  code  and  the  last  two  octal  digits  of 
four  words. 

10.  Timing:  The  program  operates  at  punch  speed. 

12.  Caution  to  User:  The  contents  of  7777  will  not  be  dumped.  The  program 
will  operate  If  the  final  address  Is  less  than  Che  start  address. 

13.  Equipment  Configuration:  Minimum 
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IDENTIFICATION 

Title:  Lis table  Symbolic  Dun^  -  F3.04A 

Programmer:  Don  T.  Miller,  July  1961 

PURPOSE 

To  produce  a  llstable  symbolic  dump  of  a  specified  area  of  core  with  1  word 

per  Flex  line. 

USAGE 

1.  Operational  Procedure 

The  program  may  be  loaded  anj^here  greater  than  address  1.  The  P  register 
should  be  set  to  the  starting  load  address,  the  starting  address  of  the 
area  to  be  dumped  put  in  the  A  register  and  the  Run  switch  put  in  the  RUN 
position.  The  program  will  stop  at  the  load  address  +6,  and  the  final 
address  of  the  dump  should  be  placed  in  A.  Put  the  Run  switch  in  RUN  and 
the  program  will  punch  the  required  area  of  core  (in  Flexowriter  code) 
punch  a  stop  code  and  stop  at  the  load  address  -<41. 

3.  Space  Used:  421g  ■  ^^^10  l^’cations 

9.  Output  Format:  Each  line  will  contain:  a  carriage  return,  octal  address, 
octal  contents  of  that  address,  mnemonic  instruction  code  for  the  first 
two  digits  and  the  last  two  octal  digits,  e.g.,  (0100  4201  STF  01). 

10.  Timing:  The  program  operates  at  punch  speed. 

12.  Caution  to  User;  The  contents  of  7777  will  not  be  dumped.  The  program 
will  operate  if  the  final  address  is  less  than  the  start  address. 

13.  Equipment  Configuration:  Minimum 
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IDENTIFICATION 

Title:  160-A  Symbolic  Printer  Dump  -  AF3,07 

Programmer:  L.  Brown,  S.  Palais,  January  1962 

PURPOSE 

To  provide  a  dynamic  symbolic  dump  for  the  160-A  onto  the  1612  printer. 
USAGE 

1.  a.  As  a  closed  subroutine 

L  JPR 
Lfl  DMPPRT 

Lf2  NORMAL 
Lf3  RETURN 

I/f4  OOOX  (X  *  Bank  to  be  dumped) 

Lf5  FWA  of  dump 
Lf6  LHA  of  dump 

The  calling  sequence  must  be  in  the  same  bank  as  the  subroutine. 

The  A-reglster  and  bank  settings  will  be  restored  by  the  program. 

b.  Independent  Routine  Procedure 

(1)  To  locate  the  program  at  location  (P),  load  the  OSAP-A  binary 
output  with  the  OSAP-A  relocatable  binary  loader,  using  (P)  as 
the  relocation  increment.  (P)  must  be  i  6770g.  The  program 
may  be  loaded  into  any  bank. 

(2)  Master  clear. 

(3)  Ready  the  1612  printer. 

(4)  Put  (P)  in  the  P-reglster  and  OOOX  (where  X  is  the  bank  to  be 
dunq>ed)  in  the  A-register. 

(5)  RUN.  Upon  halting  at  (P'f2),  enter  FWA  in  the  A-register. 

(6)  RUN.  Upon  halting  at  (P+5),  enter  LWA  in  the  A-reglster. 

(7)  RUN.  The  program  will  stop  at  (PflO). 

(8)  RUN  with  OOOX  in  the  A-register  to  restart. 
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3.  Space  Required 

1005g  ■  517^0  as  an  Independent  routine. 

765g  ■  ^^^10  ^  closed  subroutine. 

9.  Output  Format 
First  Line 

DUMP(n)XXXX  TO  (n)Xm  LOG (n) 7777  -  XXXX 
BANKS  XXXX  AREG  XXXX  JUMP  ADDRESS  XXXX 

where  (n)  Is  the  number  of  the  bank  being  dumped. 

BANKS  XXXX  Is  the  display  of  the  bank  settings,  bdlr,  upon  entry 
to  the  dump  program. 

AREG  XXXX  Is  the  contents  of  the  A- register  upon  entry  to  the 
dump  subroutine. 

JUMP  ADDRESS  XXXX  Is  the  address  L  In  the  calling  sequence.  . 

(L  Is  when  program  Is  used  Independently.) 

Normal  Lines: 

The  normal  line  output  consists  of  an  address  followed  by  10-  words 
of  the  form:  3  digit  op  code  and  4  digit  octal  word.  The  first 
address  dumped  will  be  the  nearest  address  less  than  FWA  and  divisible 
by  lOg.  The  number  of  words  per  line  may  be  made  less  than  lOg  by 
replacing  location  (F+26g)  by  LCN  N,  where  N  is  the  word  count. 

The  last  line  dumped  will  include,  but  not  necessarily  end  with,  the 
word  In  LNA. 

Zero  Lines; 

1st  -  normal  line  format 
2nd  -  . 

subsequent  lines  of  zeros  are  suppressed. 

Last  Line: 

END  DUMP  (n)XXXX  TO  (n)XXXX 

NOTE:  Location  (n)  7777  Is  included  only  In  the  first  line  printed.  If 
777  Is  given  as  the  FWA,  0000  will  be  the  FWA  used  by  the  routine; 
If  7777  Is  given  as  the  LWA,  7776  will  be  the  LWA  used. 

No  symbolic  op  codes  are  printed  for  00  and  01  F-terms. 
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IDENTIFICATION 

Title:  160-A  Symbolic  Flexowriter  Ibnip  -  Ident.  AF3.08 

Programmer:  L.  Brown,  S.  Palais,  January  1962 

PURPOSE 

To  provide  a  symbolic  dump  for  the  160-A  onto  punched  paper  tape,  to  be 
listed  on  the  flexowriter. 

USAGE 

1.  a.  As  a  closed  subroutine 

L  JPR 
L+1  DMPFLX 

L+2  NORMAL 
L+3  RETURN 

L+4  OOOX  (X  ■  Bank  to  be  dumped) 

L+5  FWA  of  dump 
L'+S  LWA  of  dump 

The  calling  sequence  must  be  In  the  same  bank  as  the  subroutine.  The 
A-reglster  and  bank  settings  will  be  restored  by  the  program. 

b.  Independent  Routine  Procedure 

(1)  To  locate  the  program  at  location  (P),  load  the  OSAP-A  binary 
output  with  the  OSAP-A  relocatable  binary  loader,  using  (P) 

as  the  relocation  increment.  (P)  must  be£6740g.  The  program 
may  be  loaded  Into  any  bank. 

(2)  Master  Clear. 

(3)  Turn  the  paper  tape  punch  on. 

(4)  Put  (P)  In  the  P-reglster  and  OOOX  (where  X  Is  the  bank  to  be 
dumped)  In  the  A-reglster. 

(5)  RUN.  Upon  halting  at  (P^2),  enter  FWA  In  the  A-reglster. 

(6)  RUN.  Upon  halting  at  (P+’S),  enter  LWA  In  the  A-reglster. 

(7)  RUN.  The  program  will  stop  at  (PflO)  after  punching  paper  tape. 

(8)  RUN  with  OOOX  In  the  A-reglster  to  restart. 
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3.  Space  Required 

1036g  «  ^^^10  Independent  routine. 

1016g  ■  ^^^10  *  closed  subroutine. 

9.  Output  Format 
First  line: 

DUMP(n)XXXX  TO  (n)XXXX  LOC(n)7777  ■  XXXX 
BANKS  XXXX  AREG  XXXX  JUMP  ADDRESS  XXXX 

where  (n)  Is  the  number  of  the  bank  being  dumped. 

BANKS  XXXX  is  the  display  of  the  bank  settings,  bdlr,  upon  entry 
to  the  dump  program. 

AREG  XXXX  Is  the  contents  of  the  A-reglster  upon  entry  to  the 
dtimp  subroutine. 

JUMP  ADDRESS  XXXX  Is  the  address  L  In  the  calling  sequence. 

(1  Is  P+lOg  when  program  Is  used  Independently.) 

Normal  Lines; 

The  normal  line  output  consists  of  an  address  followed  by  lOg  words 
of  the  form:  3  digit  op  code  and  4  digit  octal  words.  The  first 
address  dumped  will  be  the  nearest  address  less  than  FWA  and 
divisible  by  lOg.  The  number  of  words  per  line  may  be  made  less 
than  lOg  by  replacing  location  (P+26g)  by  LCN  N,  where  N  Is  the 
word  count. 

Zero  Lines: 

1st  -  normal  line  format 
2nd  - . 

subsequent  lines  of  zeros  are  suppressed. 

Last  Line: 

END  DUMP  (n)XXXX  TO  (n)XXXX 

NOTE:  Location  (n)  7777  Is  Included  only  In  the  first  line  punched. 

If  7777  Is  given  as  the  FUA,  0000  will  be  the  FMA  used  by  the 
routine;  If  7777  Is  given  as  the  LMA,  7776  will  be  the  IMA 
used. 

13.  Equipment 

160-A,  Paper  Tape  Punch 
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IDENTIFICATION 

Title:  Octal  Dump  -  Ident  AF3.09 

Programmer:  D.  T.  Miller  and  S.  Palais,  November  1961 

PURPOSE 

Provides  an  octal  dump  of  one  bank  of  160'A  memory  from  a  given  starting 
address  to  the  end  of  that  bank  onto  the  1612  printer.  The  program  is 
relocatable. 

USAGE 

1,  Operational  Procedure 

a.  The  program  may  be  loaded  an3rvrtiere. 

b.  Set  the  P-reglster  to  the  starting  load  address  and  the  A-register 
to  the  starting  dump  address. 

c.  Set  the  indirect  bank  setting  to  the  number  of  the  bank  to  be 
dumped. 

d.  RUN. 

e.  Program  Stop 
Load  address  +  40g. 

3.  Space  Required:  132g  ■ 

4.  Temporary  Storage:  Location  77 
9.  Output  Format 

The  line  format  consists  of  an  address  and  20  words.  An  asterisk  Indicates 
the  omission  of  one  or  more  lines  of  zeros.  Duplicate  lines  will  be 
printed,  and  the  contents  of  the  A-register  will  not  be  printed. 

10.  Timing 

For  consecutive  non- zero  lines,  the  program  operates  at  printer  speed. 

13.  Equipment  Configuration:  Minimum  160-A  Con^uter,  1612  Printer. 


the  relative  bank. 

In  the  direct  bank,  which  is  not  restored. 
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Title:  160-A  Sjfiibollc  Typewriter  Ihap  -  Ident  APS >10 

Fxograaners:  L.  Brown>  8.  Balals,  T.  Baaley,  Jtme  1962 ,  Control  Data  an!  Fhlleo 
fORFOSE 

Provides  a  syidMlle  dta^p  for  the  I60-A  onto  the  I61  typewriter. 

usAca: 

1.  a.  As  a  closed  subroutine 

L  JPR 
Lfl  MfiPTTP 

Lt2  NOHMAL 
Lf3  KBIVJKR 

lA  OOOX  (X«Bank  to  be  duBved) 

PKA  of  duBQp 
L*6  IMA  of  duBip 

The  calling  seqjuence  oust  be  In  the  sane  bank  as  the  subroutine. 

The  A-reglster  and  bank  settings  will  be  restored  by  the  progran. 

b.  Independent  Routine  Procedure 

(1)  To  locate  the  progran  at  location  (P),  load  the  OBAS-A  binary 
output  with  the  OSAS-A  relocatable  binary  loader,  using  (P) 
as  the  relocation  Inerenent.  (P)  nost  be  ^  Ae  progran 

nay  be  loaded  Into  any  bank.  ° 

(2}  Master  Clear. 

(3)  Turn  the  typewriter  on. 

(4)  Put  (P)  In  the  P-reglster  and  OOOX  (where  X  Is  the  bank  to 
be  doi;^)  In  the  A-reglster. 

(3)  HOV.  Upon  halting  at  (P^),  enter  IMA  la  the  A-reglster. 

(6)  HDR.  Upon  halting  at  enter  IMA  la  the  A-reglster. 

(T)  MOV.  The  progran  will  stop  at  (P+IO)  after  typing  out  the 
last  line. 


(8)  Hn  with  OOOK  la  the  A-raglster  to  restart. 
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3.  Space  Required 

12320  -  ^  InlepexideBt  routine. 

12120  -  ^‘^iQ  closed  subroutine. 

10.  Output  fbxvat 
First  Line: 

DUMP(n)xm  TO  (n)XX3a  LOC  (n)7777  -  XXXX 
BARKS  mX  ABEO  XXXX  JUMP  ADDRESS  XXXX 

uhere  (n)  Is  the  number  of  the  bank  being  duagped. 

BARKS  XXXX  Is  the  display  of  the  bank  settings^  bdlr,  upon 
entry  to  the  dump  program. 

AREO  XXXX  Is  the  contents  of  the  A-reglster  upon  entry  to 
the  dtimp  subroutine. 

JUMP  ADDRESS  XXXX  Is  the  address  L  In  the  calling  sequence. 
(L  Is  F+100  uhen  progma  Is  used  Independently. ) 

Rbznal  Lines: 

The  nozmal  line  output  consists  of  an  address  foUoved  by  1'0 
wards  of  the  font:  3  digit  op  code  and  k  digit  octal  word. 

The  first  address  duaped  idll  be  the  nearest  address  less  than 
PWA  and  divisible  by  100.  Ilhe  number  of  words  per  line  nay  be 
made  more  or  less  than  ^0  by  replacing  location  (1*^260)  by  LCR  R, 
where  R  is  the  word  count. 

The  last  line  duaped  will  Include,  but  not  necessarily  end  with, 
the  word  In  IMA. 

Zero  Idnes: 

1st  -  normal  line  format 
2nd  -  . 

subsequent  lines  of  zeros  are  siq^ressed. 

Last  Idas: 

BID  DUMP  (n)XXXX  TO  (n)XXZZ 
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■OHS:  Location  (n)  7777  la  IneluAed  only  In  the  first  line 

pundied.  If  7777  la  ^ven  as  the  WA,  0000  will  be  the  TCA 
used  by  the  routine;  If  7777  Is  given  as  the  IMA,  7776 
will  be  the  LHA  used. 

l4.  Eq^l|iBent  Configuration:  Nlnlaum  SKIP  16O-A  conputer,  I6I  Typewriter. 
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F3. 

IDENTIFICAriON 

Title:  160-A  Core  Dtmqp  to  l6l2  (l6l2  DUMP)  -  Ident  AF3.II 
Programmer:  Richard  Mlhm,  January  1962,  Control  Data  Corporation 

(Documented  by  E.  J.  Rosenberg,  July  I962,  System  Development 
Corporation) 

PURPOSE 

To  allow  a  llstable  dump  of  the  machine  codes  and  constants  stored  In  l6o>A 
and  169  onto  the  l6l2  printer.  Completely  Relocatable. 

USAGE 

A.  Operating  Procedures: 

1.  Call  DUMP  from  PIUS  Master  or  load  bloctal  paper  tape  anywhere. 

2.  Run  from  load  address. 

3.  Answer  typewriter  q]uerlee  as  to  area  and  baxdc  to  be  listed. 
Terminate  area  specifications  with  periods. 

4.  Run. 

B.  Stops: 

1.  Will  stop  at  beginning  of  this  program.  Clear  and  run  to  return 
to  PIUS  control. 

RESTRICTIONS 

A.  Hardware 

1.  Minimum  I60-A 

2.  161  typewriter 

3.  1612  printer 

STORAGE  REQUIRQtENTS 

4553  locations  in  bank  0. 
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F3. 

IDEXrriFICATION 

Title:  BlOctal  Dump  (BIDU)  -  Ident.  AF3.12 

Programmer:  B.  J.  Soaenberg,  August  I962,  System  Development  Corporation 
PURPOSE 

Piuicbes  a  given  area  of  a  selected  bank  in  bloctal  format  for  machine 
loading. 

USAGE 

1.  Under  PIUS  Control: 

a.  Call  BIDU. 

b.  At  stop  L*,  set  Indirect  bsuik  equal  to  the  bank  In  which  your 
output  is  contained.  Set  "A"  equal  to  the  first  word  address 
of  the  output  area  emd  run. 

c.  At  stop  L  +  3,  set  your  EKA  +  1  in  "A"  and  run. 

d.  Normal  stop  is  at  location  L. 

e.  To  return  to  PIUS  control^  clear  and  run. 

2.  Paper  tape  version: 

a.  Machine  load  anywhere  in  bamk  0.  Run  from  loading  address. 

b.  Follow  steps  lb,  and  following,  above. 

RESTRICTIONS 

1.  Must  be  7  level  paper  tape. 

2.  Requires  37 q  storage  cells  la  bank  0. 

3*  Minimum  I60-A. 


*  L  *  Loading  address. 
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IDENTIFICATION 

Title:  1607  to  I60  to  l6l2  Routine  -  Ident.  F4.o6 
Progranmer:  Sanford  Elkln>  February  1962 

PURPOSE 

Accepts  blocked  or  unblocked  magnetic  tapes,  and  lists  them  on  the  Control 
Data  1612  printer  at  1000  times  per  minute.  The  listing  may  be  done  either 
under  program  control  (using  standard  IBM  carriage  control  characters)  or 
under  the  control  of  the  l6l2  Monitor  Channels  1-6. 

USAGE 

1 .  Operational  Procedure 

a.  Load  the  program  at  location  100.  Put  the  tape  to  be  listed  on 
logical  tape  handler  N. 

b.  Put  OONP  in  the  A  register,  where  P  r  0  for  program  control, 

P  a  1  -  6  for  Monitor  Channel  1-6. 

c.  Run.  The  first  file  will  be  listed,  and  the  program  will  stop 
at  location  21^.  If  there  are  more  files  to  be  listed,  repeat 
(c).  A  page  eject  will  occxir  after  each  file. 

If  it  is  desired  to  print  several  files,  and  the  end  of  useful  informa¬ 
tion  is  denoted  by  2  successive  EOF  marks,  the  only  changes  needed 
are  to  change  location  CQNTIN  +3  (octal  261)  to  be  UW  0  (0400),  and 
REWIND  (octal  213)  to  be  NXF  3  (6103) •  Then  the  program  will  rewind 
the  tape  to  the  unload  point  and  sjbop  at  REWIND  3  (octal  222). 

3 .  Space  Required 
412q  .  266^q 

4.  Tenqporary  Storage 

2020  s  locations,  plus  the  storage  needed  for  the  longest  tape 

the  longest  tape  record. 

3.  Error  Print-outs 

If  a  line  has  a  parity  error  in  it,  the  words  PARITI  ERROR  will  be 
printed  before  the  line. 

8.  Input  Tape  Mounting 

On  logical  tape  N,  when  the  A  register  contains  OONP. 
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9 .  Input  Format 

A  record  may  have  any  number  of  characters  up  to  7266^^.  The  character 
320  In  an  even  position  is  Interpreted  as  an  end-of- record  mark.  This 
will  terminate  the  line,  and  the  320  will  not  be  printed.  If  program 
control  Is  desired,  the  first  character  of  every  line  vlll  be  Interpreted 
as  a  carriage  control  character,  and  vlll  not  be  printed.  Legal  CC 
characters  are  1  (page  eject),  120  (double  space),  and  UOq  (triple  space). 
All  others  are  Inteirpreted  as  single  space. 

10 .  Timing 

1000  lines  per  minute,  if  the  blocked  records  do  not  exceed  approximately 
12^0io  characters. 

12.  Cautions  to  User 

If  blocked  records  are  used,  each  line  Image  must  be  ended  by  a  320  in 
an  even  character  position.  If  program  control  Is  also  used,  the  ^0 
must  be  followed  by  a  CC  character. 

13 •  Equipment  Configuration 

160  or  160-A,  1612,  and  I607. 

METHOD 

The  first  record  Is  read  Into  core  In  assembly  mode,  starting  at  I1!IAD(0713)  • 
The  program  then  unpacks  the  information,  storing  1  character  per  word 
starting  at  BFIHAD  (0^23).  When  32fi  occurs  In  the  rl^t  half  of  an  input 
word,  or  the  end  of  the  Input  recora  is  reached,  tbb  program  prints  the 
unpacked  characters  dn  the  l6l2. 
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F4 

IDENTIFICATION 

Title:  Flexowrlter  Tape  to  ANelex  -  Ident.  FU.O?  (Flexlex) 

Programmer:  Bud  Vltoff ,  February  I961 

PURPOSE 

1.  Flexlex  was  designed  primarily  for  printing  OSAF  listing  tapes.  It  cem 
be  used  efficiently  whenever  the  ANelex  is  available  for  use  Inmedlately 
after  assembly. 

2.  The  routine  can  be  used  for  printing  any  paper  tape  prepared  by  or  for 
a  Flexowrlter. 

USA£S; 

1.  Operational  Procedure 

a.  Load  program  into  0000  through  06^0. 

b.  Turn  on  reader.  Insert  tape  to  be  printed  anywhere  on  its  blai± 

leader.  ) 

c.  Master  clear  and  start.  A  page  eject  is  executed  before  printing 
starts. 

d.  When  ten  consecutive  bleuik  frames  are  detected,  a  page  eject  is  exe¬ 
cuted  and  printing  stops.  Starting  at  this  point  enters  a  closed 
"page  eject  and  stop"  loop. 

e.  A  master  clear  restarts  the  program. 

f .  A  closed  "page  eject  and  stop"  loop  can  be  entered  by  setting 
P  .  0001. 

7 .  Programmed  Stops 

Z  m  7700:  Page  eject  loop  entered  at  0001 

Z  m  7702:  Page  eject  loop  entered  after  ten  consecutive  blank  frames. 

Z  M  0004:  Program  check  sum  failure.  Reload  progreun. 

9 .  Output  format 

a.  Lines  per  page:  ^6 

b.  Flexowrlter  code  interpretation  (7tb  level  is  ignored): 

1.  carriage  return  and  tabulator  codes  cause  appropriate  printing 
action,  with  tab  stops  after  every  12  columns  (l.e.,  in  cols. 

13,  25,  37,  etc.).* 

2,  delete  codes  and  Illegal  codes  are  Ignored. 


) 
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3.  all  other  non-printing  codes  are  represented  by  the  indicated 
substitutes: 


Code 

Meaning 

Substitute 

02 

color  shift 

t 

43 

stop 

« 

47 

upper  case 

: 

57 

lower  case 

7 

61 

backspace 

( 

c.  An  automatic  ccurrlage  return  is  executed  after  120  columns  have  been 
"set"  for  a  line  of  print. 

10 .  Timing 

Printing  speed  varies  with  the  aanunt  to  be  printed  on  each  line,  but 
06AF  listings  run  about  323  lines  per  minute. 

11.  EqiulpiBent  configuration 
Basic  160  computer  and  AHelex. 


*Tab  stops  mist  be  equally  spaced  across  the  page;  however,  the  routine 
nay  be  easily  changed  to  provide  one  of  the  following  options: 

1.  tab  Interval  fixed  at  a  value  other  than  12,  or 

2.  tab  Interval  fixed,  with  pn>vislon  for  changing  it  at  the  beginning 
of  each  run  (by  manually  changing  the  contents  of  register  A  at  a 
prograoMd  stop). 

The  tab  Interval  is  set  at  the  beginning  of  a  run  by  the  instructions  in 
location  0107  and  0110: 

Location  Current  Change  1  Change  2 

0107  Ii»  l4  mt  XX 

0110  UM  14  UXixx  HUT  01 

Load  the  program,  and  make  the  change  in  core.  Master  clear  and  start. 
Error  stop  0004  will  display  the  calculated  new  check  sum  in  register  A. 

Permanent  change: 


Enter  the  new  check  sum  into  location  0630  and  punch  a  new  bl-octal  tape. 
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Temporary  change: 

Start.  Program  stop  770U  will  display  the  programmed  check  sum  in  register 
A.  (Of  course,  the  check  sum  difference  should  be  accounted  for  by  your 
changes.)  Start  to  enter  the  program. 
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P5. 

IDERTmCATIQir 

Title:  Tape-to-Cari  Punching  Boutlne  -  Ident.  F3«02 

Progranmera :  E  Canpbell,  R.  Mllla,  October  1982,  Control  Data  Corp« 

PURPOSE 

To  read  nagaetlc  tape  In  BCD  or  binary  mode  and  punch  corresponding  Hollerith 
or  binary  cards. 

USACS; 

1.  Operational  Procedure 

Mount  input  tape  on  a  l63  or  l64  tape  handler.  Set  the  523  punch  unit 
to  ready.  Load  the  bloctal  program  tape  at  zero,  set  the  A  register  to 
one  of  the  Input  parameters,  set  the  P  register  to  one  of  the  entry  points, 
and  run. 

2.  Parameters 

a.  IiQiut  -  A  Register 

Load  the  A  vlth  OXXZ  lAiere: 

X  =  1  halt  at  each  end-of-file  mark 
X  B  0  process  to  end-of-tape 

Y  B  1  tape  unit  l63  or  l64  -  only  legal  tape  unit  at  present 
Z  B  1  tape  handler  number  1 
Z  B  2  tape  handler  number  2 

b.  Entry  Points  -  P  Register 
Normal  entry  -  P  b  lOO 

Read  to  next  end  of  file  and  halt  -  P  >  1077 

3.  Space  Required 

947  decli^  or  1663  octal  locations 

5.  Bank  Allocations 

When  operating  this  program  on  the  16O-A,  be  sure  all  bank  settings 
are  the  same,  e.g.,  RbQ,  IbO,  D«0,  B-0,  or  RbI,  I  ■  1,  D*l,  BbI. 

6.  Alarms  or  Printouts 

This  routine  uas  written  to  process  punch  output  from  the  l604  CO-OP 
Monitor  System,  consequently  the  program  looks  for  a  Job  number.  No 
Job  number  Is  required  to  vise  the  program,  but  If  there  is  one  it  will 
be  displayed  in  the  A  register  at  had.t  location  324  octal  if  non- 
recoverable  parity  error  occurs.  This  number  will  be  in  4-bit  BCD  code 
allowing  a  maximum  Job  tuaiber  of  999 

A  second  halt  at  location  326  occurs  with  parity  errors.  A  contains 
the  octal  punched  card  count.  If  processing  is  continued  fMm  this 
halt,  an  Z  card  Is  punchsd  and  the  parity  error  record  follows. 

Nozmal  processing  will  then  continue. 
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Error  Stops 

Location 

Cause 

Comments 

0101 

Illegal  Input  parameter 

Set  A  and  run 

0324 

Solid  taTx“  parity  error 

^A)  is  Job  number  In  4-blt  BCD 

0326 

Solid  tape  parity  error 

(A)  is  nth  punched  card  In  octal 

0713 

Halt  at  each  end-of-flle 

(A)  is  Job  number  In  4-blt  BCD 

1074 

Normal  halt  at  end-of-tape 

Tape  will  have  been  rewound 
to  unload. 

1104 

Illegal  unit,  ntsnber  vixen 

EOF  entry  was  used 

Set  A  and  Run 

1135 

Halt  after  skipping  one 

Run  If  processing  Is  desired. 

file 

reset  P  and  A  If  next  EOF  is 
desired 

10.  Input/Output  Foimata 

a.  Input 

Tape  records  nay  be  84  characters  or  less  in  BCD,  binary  or  a 
mixture  of  both  modes.  Two  consecutive  end-of-flle  marks  or 
an  EHD  MORITOS  OUTHJT  card  will  tezninate  processing. 

b.  Output 

Hollerith  or  binary  punched  cards. 


11.  Timing 

The  program  operates  at  punch  speed  (lOO  rpn). 


14. 


EqulTiaent  Configuration 
163  or  164  tape  \mlt 


Minimum  SKAF  l60  or  l60-A  ccaqiniter 
1610-^23  card  punch  system 


METHOD 

The  program  reads  magnetic  tape  In  12-blt  word  mode  (2  frames/word)  for 
blncuy  records  and  6-blt  word  mode  (l  frame/word)  for  BCD  records.  If 
a  parity  error  occurs,  a  reread  In  the  binary  mode  is  tried  3  times, 
then  3  tries  are  made  In  BCD  mode.  If  the  parity  condition  persists, 

It  Is  classified  as  a  solid  parity  error.  If  no  parity  error  occurs 
the  mode  continues  used  until  the  next  parity  error. 
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IDEMTIFICATIOH 

Title:  Flex  Tape  te  Magnetic  Tape  Cenverter  -  Tdent.  F6.01 
PregrenoMr:  L.  Kiiller,  August  i960 

PURPOSE 

Produce  a  copy  ef  a  Flexevrlter  tape  on  magnetic  tape  in  a  form  suitable  for 
listing. 

USAOE 

1 .  Operational  Procedure 

a.  Lead  program  tape  F6.01 

1.  Turn  on  reader,  insert  tape  and  set  P  s  0000. 

2.  Set  Load  switch  and  press  Run. 

3<  First  stop 

P  .  000»^ 

A  .  1111 
Z  s  0000 

U.  Set  P  ■  1000,  press  Run  switch 

3.  Program  Step 

P  :  1177 

A  .  0000 
Z  =  0000 

b.  Convert  Flexowrlter  tape  te  magnetic  tape 

1.  Turn  on  reader  and  insert  Flexowrlter  tape. 

2.  Set  COMD  parity  selection  en  mhgnetlc  tape  \mlt. 

3.  Set  P  .  1000 

h.  Press  Run  switch 

3>  Program  Step  (16  consecutive  blank  frames  read) 

P  .  1021 
A  :  0000 

z  .  7707 

6.  Optlen-wrlte  end-of-flle  mark,  clear  casvuter  and  press  Run  switch. 
7>  To  convert  more  Flexowrlter  tape,  return  Run  switch  te  center 
and  then  to  RUN. 

3.  Space  required  -  204g  -  132^^^  locations 

7>  Srrer  -  parity,  routine  atto^ts  te  write  output  block  en  tape  until  the 
error  disappears. 
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13 •  Equipment  Configuration  -  Nlnlnum  I60  computer  with  magnetic  tape  units. 
METHOD 

Punched  paper  tape  characters  are  translated  Into  equivalent  line  printer 
codes.  If  there  is  no  equivalence,  the  punched  paper  tape  character  is 
Ignored.  When  a  CR  Is  read,  blank  cedes  to  fill  the  ISO  character  line 
printer  line  are  Inverted  on  the  magnetic  tape.  The  output  from  the  I60  is 
copies  on  magnetic  tape  with  parity  checking. 
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F6. 

IBEMTIFICAriON 

Title:  1609  Card  to  Magnetic  Tape  (l609-'l6U)  -  Ident.  F6.02 
Progpranmer:  C.  Frankenfleld,  October  1961 

PURPOSE 

This  routine  will  read  BCD  cards,  check  validity,  and  write  BCD  card  Images 
on  magnetic  tape. 

USAGE 

1 .  Operational  Procedure 

a.  Load  the  program  binary  tape  using  the  OSAP  Binary  Loader  Program 
(A4.00). 

b.  Plaice  cards  In  card  reader  hopper  9-^*^^  first,  face-down.  Cycle 
one  card.  Select  tape  unit  1. 

c.  Set  P-reglster  to  6600  and  RUN. 

d .  Normal  Stops 

6635  -  Card  stacker  full.  Remove  cards  from  stacker;  RUN  from  this 
location  to  continue  program. 

6661  -  Card  hopper  empty. 

a.  To  continue  program  reload  card  hopper  and  RUN  from  this 
location. 

b.  To  read  last  two  cards  In  reader  euid  write  end  of  file, 
enter  1  In  A- register  and  RUN  from  this  location. 

7351  '  Last  two  cards  have  been  read  and  written  on  magnetic  tape. 

End  of  file  has  been  written. 

a.  To  write  more  card  Images  on  same  tape,  reload  card  hopper, 
feed  one  card,  and  RUN  from  this  location. 

b.  To  rewind  magnetic  tape,  enter  1  In  A- register  and  RUN. 

73^8  -  Tape  has  been  rewound.  Depress  RUN  to  perform  next  Job. 

7402  -  End  of  magnetic  tape  has  been  reached.  End  of  File  has  been 

written  and  tape  has  been  rewound.  After  changing  magnetic 
tapes,  RUN  fron  this  location  without  removing  cards  from 
hopper  to  continue  program. 

3 .  Space  Required 

Program  occupies  locations  66OO  through  0000  and  low  core  locations 
70  through  76. 
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7 .  Error  Stops 

66k2  -  Card  feed  failure.  Impossible  to  recover  at  tbls  point.  Repeat 
Step  b  under  Operational  Firocedure  and  RUN  from  this  location 
to  restart  program. 

6653  -  Card  reader  not  ready.  Correct  status  fault;  RUN. 

6657  -  No  cards  initially  in  hopper.  Correct  fault;  RUN. 

717^  -  Illegal  BCD  character  read. 

a.  RUN,  and  card  with  Illegal  BCD  character  will  be  Ignored. 

b.  Enter  1  In  A- register  and  RUN  to  write  card  with  Illegal 
character  on  tape. 

7466  -  After  3  attempts  at  three  successive  locations  unable  to  write 
a  record  due  to  parity  errors  or  illegal  BCD  code, 

a.  RUN  from  here  to  try  to  write  on  magnetic  tape  again. 

b.  Enter  1  In  A-  register,  and  BUR  to  start  over  again  with 
new  tape. 

10 .  Timing 

The  program  reads  at  reader  speed  (lOO  cards  per  minute). 

13 •  Equipment  Configuration 

Minimum  I60  with  l64  and  1609  adaptor  for  the  IBM  ^21  Card  Read  Punch 
Unit. 
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76. 

umancAnias 

Title:  CARD  TO  KAOimC  TAPE  (16?  to  l63/l6k)  -  Ideat.  F6.O3. 

Prograamer:  Anthony  Taylor  Sblth,  October  19^ ^  Control  Data  Corporation 

PURPOSE 

Thla  prograa  la  vrltten  In  OSAS  language  for  either  the  160  or  16O-A  conQiuter. 
It  converts  data  from  cards  Into  magnetic  tape  records^  one  card  per 
record.  Either  binary  or  BCD  cards  will  be  handled,  producing  binary  or 
BCD  records,  re^ctlvely.  (A  binary  card  Is  Identified  by  a  7-9  punch 
In  column  l).  These  cards  nay  be  mixed. 

USACffi 

1.  Operational  Procedxires 

The  program  Is  distributed  as  a  binary  ta]^  and  should  be  loaded  with 
a  starting  address  L  between  0100-7^10  inclusive;  the  program  will 
then  be  run  with  the  starting  address,  L.  In  the  P  register. 

Use  tape  unit  1  for  the  output  tape. 

The  program  will  process  cards  until  the  card  hopper  becomes  enpty, 
at  idileb  tine  the  'card  hopper  empty'  status  req^nse  produces  a  h^t 
at  Location  L  +  6l  (L^l  0000  7700).  If  more  cards  are  to  be  loadi^ 

In  the  same  magnetic  tape  file,  RQR-ZERO  must  be  put  In  the  A  register 
before  naming  from  this  point.  To  produce  an  end-of-flle  mark  after 
the  hopper-eiiQ>ty  condition,  leave  ZERO  In  A  and  run. 

Note:  Cards  with  the  seme  leading  comer  cut  must  be  used  throu^diout. 

3.  Space  Requirements 

The  program  2k7a  cells  idilch  can  be  loaded  anyidiere  within  core  locations 
0100-7656  and  location  TOq  In  low  core.  Locations  7657-7776,  inclusive, 
are  used  for  the  80>columa  read-in-area,  one  column  per  word. 

7.  Error  Stops 

lOXX  0000  -  XX  Is  the  I67  status  response  code.  Clear  167  error 
condition.  Note  value  of  F  register,  clear,  enter  noted  P  plus  1, 

In  P,  0  In  A,  and  run. 

I/t2kl  OXXI  0000  -  XXX  Is  the  card  column  (in  octsiL)  where  an  Illegal 
code  exists.  Correct  the  card,  replace  In  reader,  and  run. 

l4.  Eouliment  Conflsuratlon 

mnlHun  SNAP  18O  or  l60-A,  I67  reader  and  a  163  or  l6h  tape  unit. 
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f6. 

UXaiTIFICATION 

Title:  Change  Magnetic  Tape  Becord  Length  Binary. Tapes  -  Ident.  F6.04 
Frograimer:  (Control  Data  Corporation/Applications);  October  1962 

PURPOSE 

Writes  magnetic  tapes  of  a  designated  record  length  from  tapes  of  the  same 
or  different  record  lengths  for  binary  tapes  only  (odd  parity). 

USAGE 

1.  Operational  Procedure: 

Load  and  run  at  0,  TUI  Input,  TU2  output. 

At  the  halt  0002  0000  7700  enter  required  output  record  slse  in  the  A 
register  cuid  run. 

Halt  0123  0000  7700  allows  two  or  more  Input  tapes  to  be  output  with  no 
"zero  fill  In"  gap  between  them.  At  the  halt  enter  either  zero  or  posi¬ 
tive  non-zero  Into  the  A  register.  In  the  latter  case,  a  new  tape  must 
be  readied  on  TUI-run.  To  termliuite  the  process  make  no  entry  In  the 
A  register-run.  The  program  will  fill  up  the  last  record  with  O's 
to  the  required  size,  output  It  and  a  tape  mark  on  the  output  tape. 

Final  Halt,  01^7  2112  7700:  After  this  halt  the  program  reinitializes 
Itself,  so  that  another  process  can  be  handled  without  reloading  the 
program. 

Clear  and  run  from  0. 

note:  Since  the  program  was  originally  written  for  the  160  computer 
and  Is  at  this  time  designed  to  be  coiqpatlble  with  either 
the  160  or  the  160-A  the  sum  of  the  output  and  input  block 
lengths  must  not  exceed  75000.  Further,  In  operation  on  the 
160-A  all  banks  should  be  zero. 

3.  Space  Requirements: 

Program  uses  locations  OOOO-OI63.  From  location  200  on  Is  made  available 
as  the  Input/output  area. 

5.  Bank  Allocation:  Set  all  banks  on  the  160-A  to  zero. 
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7.  Error  Stop: 

0031  0000  0000:  Delinquent  record. 

The  tape  has  been  read  three  times  without  success,  enter  non-sero 
In  A  to  bypass  delinquent  record,  or  0  to  keep  trying  to  read  the 
same  record. 

lU.  Equipment  Configuration: 

Two  163/164  Magnetic  Tape  Ihilts,  I60  or  16O-A  SWAP  Computer. 
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IDENTIFICATION 

Title:  160-A  Binary  Card  Binary  Tape  Verify  Routine  -  Ident.  AF6..06 
Programner:  Larry  Brown,  Control  Data  Corporation 

PURPOSE 

This  routine  compares  80  column  binary  cards  with  their  Image  on  magnetic 
tape.  If  the  card  and  tape  image  do  not  match,  a  card  Is  punched  representing 
the  tape  Image,  The  routine  has  been  written  for  the  IBM  ^33  Card  Read  Punch. 

l^AGE 

1.  Calling  Sequence  and  Operational  Procedures 

a.  As  a  closed  subroutine,  entry  Is  made  with  the  following  calling 
sequence: 

L  JPR 

L-tl  VERIFY 

Lt2  NORMAL 

L+3  RETURN 

L+4  OWOU 

b.  As  an  Independent  program,  load  the  bl-octal  tape  at  location  OO60 
In  either  bank  and  start  at  location  (r)  OO60  with  OWOU  in  the 

A- register. 

c.  533. Card  Read  Operation 

Place  the  cards  to  be  verified  in  the  read  hopper  to  feed  9-®<ige  first, 
face  down.  Push  the  START  button  twice  to  feed  two  cards  and  turn 
off  the  NOT  READY  light.  At  least  two  cards  must  follow  the  deck  to 
be  read;  these  cards  may  be  bleuik  or  the  first  two  cards  of  the  next 
deck  to  be  verified  If  more  them  one  file  Is  on  tape. 

d.  Card  Read  Feed  Failure 

In  case  of  a  card  read  feed  failure,  follow  these  procedures: 

I)  Put  the  read  stacker  switch  In  the  W  position  (toggle  it 
toward  you). 

II}  Remove  the  cards  from  the  read  hopper.  Reproduce  the  damaged 
cards  from  the  bott<»i  of  the  stack  and  discard  the  damaged 
cards.  Put  the  reproduced  cards  at  the  bottom  of  the  stack. 


8  JiBtruary  1963 


n*-(L)-993 


lf-83 


III)  Push  the  START  button  until  all  cards  have  been  fed  out  of  the 
machine . 

IV)  Put  the  last  card  fed  out  In  front  of  the  reproduced  cards 
from  the  read  hopper. 

V)  Place  the  corrected  card  stack  In  the  read  hopper  and  push 
the  start  button  twice  to  feed  two  cards. 

VI)  Put  the  read  stacker  switch  In  the  OFF  position  (toggle  It  away 
from  you) .  The  NOT  READY  ll£^t  will  go  out  and  the  computer 
will  continue  reading  cards. 

e.  533  Card  Punch  Operation 

Place  blank  cards  to  feed  9-edge  first,  face  down.  In  the  card  punch 
hopper.  Push  the  START  ubtton  once  to  feed  a  card  and  turn  off  the 
NOT  HEADY  light. 

f .  Card  Punch  Feed  Failure 

In  case  of  a  card  punch  feed  failure,  remove  the  blank  cards  from  the 
hopper  and  examine  the  cards  on  the  bottom  of  the  stack.  Discard 
all  damaged  cards  and  replace  the  stack  in  the  hopper.  Push  the 
START  button  once  to  turn  off  the  NOT  READY  light  and  place  a  card 
in  position  for  punching. 

g.  Procedures  for  N0T-C(^AHE  Stop 

If  the  binary  ceuid  read  In  does  not  match  with  the  binary  tape  Image, 
the  coB^uter  punches  a  card  and  stops. 

I)  Remove  the  blank  cards  from  the  card  punch  hopper  and  feed  all 
cards  out.  There  will  be  2  cards,  the  last  one  of  which  Is 
blank  and  should  be  placed  with  the  other  blank  cards.  The 
first  card  out  Is  the  card  punched  from  the  tape  Image. 

II)  Remove  the  cards  from  the  card  read  hopper  and  feed  edl  cards 

out  of  the  machine.  The  last  two  cards  fed  out  are  to  be  placed 
In  front  of  the  cards  from  the  read  hopper.  The  third  last 
card  fed  out  is  the  one  which  did  not  coa^re  with  the  tape 
Image;  discard  that  card. 

Ill)  Put  the  caurd  punched  In  front  of  the  stack  from  the  read  hopper 
(in  front  of  the  last  two  cards  fed  out  In  the  last  step). 

IV)  Place  the  corrected  deck  In  the  card  read  hopper  and  push  the 
START  button  twice  to  feed  two  cards  and  turn  off  the  NOT  READY 
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llfEht.  Place  the  blank  cards  in  the  card  punch  hopper  and 
push  the  START  button  once  to  feed  one  card  and  turn  off  the 
NOT  READY  ll£^t. 

V)  Place  the  conqputer's  RUN-STEP  switch  Into  the  STEP  position 
and  then  Into  the  RUN  position.  Counter  operations  will  then 
continue. 


2 .  Entrance  Parameter 


OWOU  as  follows: 

W  -  tape  control  unit  number  (ustially  l) 
U  s  logical  tape  nvmiber  selection 

3 .  Space  Requirements 


32^g  locations  In  the  relative  hank 
^3  locations  In  the  direct  bank 
374g  locations  In  the  Indirect  bank 

locations  In  the  Indirect  bank  are  assigned  by  EQU  cards,  124o  -  342^0 
non- overlapping  locations  must  be  reserved  for  the  symbols  BIm, 

BIXB,  and  BIKC.  Location  (l)  0000  must  not  be  Included  In  this  storage 
assignment.  If  It  Is  desired  to  re-arrange  the  direct  storage  assign¬ 
ments,  only  the  symbol  SETS  may  be  assigned  location  (d)  0000.  All 
other  direct  storage  locations  may  be  assigned  at  will. 

7 .  Program  Stops 


Location 

CKPAR*7 


BBUCBn 


RWDtl 


Description 

Three  attempts  have  been  made  to  read  a  tape 
record  euid  all  have  failed  because  of  peurlty 
errors.  A  card  has  not  been  read  for  this  tape 
Image.  Continuing  from  this  point  tries  three  more 
times  to  read  the  record.  This  stop  Is  at  (r)  0223 
when  used  as  em  Independent  program. 

This  stop  Is  the  NOT-C(MPARE  stop.  A  new  card  has 
been  punched  from  the  tape  Image.  Follow  procedures 
outlined  in  C.l.g.  above.  This  stop  Is  at  location 
(r)  0346  when  used  as  an  Independent  program. 

An  End-Of-Tape  reflective  spot  has  been  encountered. 
The  program  rewlnd-unloads  the  current  tape.  Mount 
the  next  tape  anc  continue.  This  stop  Is  at  loca¬ 
tion  (r)  037^  idien  used  as  an  Independent  program. 


) 
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If  this  routine  Is  used  as  an  Independent  program,  one  additional 
stop  Is  provided:  at  location  (r)  OO63  for  the  normal  return. 

8.  Input  Tape  Mounting 

The  Input  tape  Is  motmted  on  control  unit  W  with  logical  selection  U  as 
In  2.  above.  The  tape  may  be  file  protected. 

9.  Input  and  Output  Formats 

a.  Card  Input 

Standard  80  column  binary  card. 

b .  Tape  Input 

I6O10  character  column  binary  Image  In  odd  parity  of  card  above. 

c .  Card  Output 

Standard  80  column  binary  card  of  Image  9 *13.  above. 

10.  Timing 

Approximately  200  cards  per  minute  compared.  This  routine  operates  as 
fast  as  the  IBM  533  read  feed. 

12 .  Cautions 

Do  not  step  through  the  routine  or  teUce  the  computer  out  of  RUN. 

13 .  Equipment  Configuration 

Minimum  I60-A  with  163  and  1610  adaptor  for  the  IBM  card  read  punch. 

The  program  assumes  a  2-bcmk  16O-A.  The  163  tape  unit  is  selected  In  odd 
parity  and  assembly  (l2-blt}  mode  only.  The  buffer  channel  Is  used  to 
read  cards  from  the  second  read  station.  The  normal  channel  Is  used  to 
read  tapes  and  punch  cards. 

15 .  Miscellaneous 

a .  Normal  Return 

Follows  reading  an  End-of-Flle  mark. 

b.  Interrupt 
Not  used. 
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c .  Bank  Settings 

Upon  normal  return^  the  direct.  Indirect  and  buffer  banks  are 
restored  to  their  values  as  the  time  of  entry  to  the  subroutine. 
The  subroutine  will  work  In  either  bank. 

d.  Machine  Registers 

The  Biiffer  Entrance,  Buffer  Exit,  emd  A-reglsters  are  not  restored. 

e.  Selective  Stop  and  Selective  Jun^  switches  are  not  used. 
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F7. 

IIEBTIFICATION 

Title:  FORTBAH  cards  to  Flex  Tape  -  Ident.  AF  7*00 
Frogranmer:  I.  D.  Bablc,  Atagust  I962,  Control  Data  Corporation 

PURPOSE 

This  routine  reads  FORTRAN  source  cards  using  the  I67  Reader  and  punches 
paper  tape  acceptable  to  the  FORTRAN  compiler,  eliminating  blank  columns 
and  inserting  Tab,  Carriage  Return,  and  Case  Code  characters  as  applicable. 

RESTRICTIONS 

1.  Connents  cards  (C  in  column  l)  are  not  punched  on  flex  tape. 

2.  Only  blsmk  columns  in  a  Hollerith  field  are  punched  as  semicolon. 

3.  Card  reader  assumed  to  he  on  noimal  channel. 

4.  Both  11  smd  8-U^  punches  are  converted  to  minus  sign. 

In  accordance  with  existing  FORTRAN  restrictions,  foznat  statements  must 
be  the  first  statement  in  a  program. 

6.  Blank  card  terminates  the  run. 

USA^ 

1 .  Operational  Procedure 

a.  Machine  load  the  program  at  P  s  0000. 

b .  Master  clear . 

c.  Ready  FORTRAN  deck  followed  by  three  blank  cards  in  reader. 

d.  Press  RUN  switch. 

2.  Prograamed  Halts 

Cause 

End  of  run  -  for  next  run  start  at  1(b)  in  Oper.  Froc. 

Err  -  number  of  chsumcters  in  Hollerith  field  not 
specified 

Card  reader  >  program  error,  aaq)llfier  failure,  or  motor 
power  off.  Take  appropriate  action;  to  continue  set 
P  ■  037^  and  press  RUN  switch. 

Feed  fallvire;  to  continue  set  F  -  0375  cuid  press  RUN  awltch. 
Stacker  full;  enipty  stacker,  set  P  z  0375  and  press  RUN 
switch. 

Hopper  enqpty;  place  additional  cards  In  hopper,  set 
P  s  0375  and  press  RUN  switch. 

3.  Space  Required 

Program  occupies  locations  0000  through  1020. 

10.  Standard  FORTRAN  input  and  output  formats. 

IX.  Timing  -  None  available. 

14.  Minimum  swap  I60-A  computer  plus  167  Card  Reader. 


P  setting 
(0216)8 
(0l62)g 

(01«)6)q 

(o407)8 

(0410)8 

(0411)0 
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F8. 

nffiarriFicATioN 

Title;  Plot  from  Magnetic  Tape  163/I6U  to  I165  Plotter  via  I60-A 
Computer  -  Ident  AF8.01 

Programmer:  (Control  Data  Corporation/  Applications),  August  I962 
PURPOSE 

This  routine,  written  In  OSAS-A,  Is  designed  to  plot  consecutive  points 
on  the  16^  plotter  and  connect  thra  with  the  best  stral^t  line.  Points 
are  obtained  from  magnetic  tape,  one  point  per  two-vord  assembly-mode 
record,  x  then  y.  The  first  point  obtained  Is  used  as  a  base  reference 
point  and  the  plot  proceeds  relative  to  this  point.  There  are  amny  switch 
options.  Including  a  library  of  graph  Identification  marks  (uprlj^t  cross, 
diagonal  cross,  square,  circle,  diamond,  eljpit  triangles  and  two  starts) 
under  the  control  of  Jump  Switch  1.  Tapes  must  be  In  binary  mode  only 
(odd  parity). 

USAGE 

1.  Operational  Procedures: 

The  first  record  on  the  program  paper  tape  Is  the  OSAS-A  paper  tape 
loader.  Load  anywhere  In  any  bank  and  run  from  the  load  address  with 
the  desired  starting  address  for  the  routine  In  the  A  register.  Run 
the  routine  from  Its  starting  address.  There  will  be  a  halt 
(lH-10  0000  7700)  at  which  the  tape  unit  being  used  should  be  put  In 
the  A  register.  At  a  second  halt  (L+32  0000  7777)  selection  may  be 
made,  by  a  suitable  entry  In  the  A  register  (O  throu^  I7),  from  the 
library  of  graph  marks  to  Identify  different  plots. 

Selective  Jump  Switch  1  Up  Produces  a  graph  with  each  point  marked 
by  the  previously  selected  graph  symbol.  Without  the  switch  Up  the 
plot  proceeds  smoothly  but  the  Individual  points  comprising  the  plot 
will  not  necessarily  be  evident. 

Stop  Switch  1  Is  used  to  effect  a  pause  ( 1/4-240  0000  7700);  running 
will  allow  continuation  of  the  same  plot. 

JuBip  Switch  2  Is  used  to  effect  an  absolute  stop  (lr<-1^3  II61  7700)  l.e., 
to  change  tape  reels  or  tape  units.  Running  from  here  requires  a  new 
selection  of  a  tape  unit  at  the  Initial  halt,  nils  switch  setting 
produces  a  rewind  to  load  point  of  the  selected  tape  unit.  This  switch 
setting  also  produces  a  resetting  of  all  the  bank  controls  to  their 
Initial  values. 
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After  a  tape  mark  is  read  Jump  Switch  4  Is  Interrogated:  Up,  the  pen 
stays  where  It  Is;  Down,  the  pen  is  returned  to  the  starting  point  for 
the  plot,  and  then  a  program  halt  occurs,  l/f230  0000  7700.  Zero  In  the 
A  register  allows  a  new  plot  to  proceed  from  the  original  base  reference 
point  after  selecting  from  the  graph  mark  library  at  the  next  halt, 

L-'-32  0000  7700.  Non-zero  in  the  A  register  continues  the  previous  plot. 

3 .  Space  Requirements 

Total  space  requirements  for  the  routine  are  1264«  locations  anywhere 
In  any  bank.  Approximately  half  of  the  routine  (the  latter  ^260  locations) 
are  Involved  with  the  tape  identification  marks  and  could  be  dispensed 
with  If  It  Is  not  required  to  mark  the  plots. 

7.  Error  Stops: 

L+111  4444  0000  Indicates  a  suspicious  record  on  magnetic  tape.  Tape 
has  been  read  three  times  and  each  time  a  parity  error  has  occ\irred. 
Putting  zero  In  the  A  register  allows  the  bad  record  to  be  ignored; 
running  without  disturbing  A  allows  reading  the  tape  three  more  times. 

This  may  be  repeated  indefinitely. 

14.  Equipment  Configuration: 

160-A  Swap  Conqniter,  Tape  unit  l63/l64,  and  l6^  Plotter. 
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f8. 

IDENTIFICiUriON 

Title:  163  Alphanumeric  and  Special  Character  Demonstration 
Plot  -  Went.  F8.02 

Programmer:  (Control  Data  Corporation/Applications),  July  1962 
PURPOSE 

This  routine,  written  In  OSAS  for  the  Control  Data  I60  or  I60-A  computer. 

Is  basically  a  demonstration  routine,  but  It  may  be  used  to  produpe  a  neat 
labelling  of  plots  on  the  163  plotter.  The  basic  letter  size  Is  six-tenths 
of  an  Inch  and  all  letters  or  digits  with  curved  portions  are  produced  with 
smooth  curves,  utilizing  the  small  Internal  up  and  down,  sideways  or  diagonal 
steps  of  the  plotter  to  the  limit.  The  program  works  from  either  paper  tape 
or  the  console  typewriter. 

USAGE 

1.  Operational  Procedures: 

a.  160  -  Load  and  run  anywhere  In  core.  At  the  halt  (L'*‘l  0000  7710) 
entering  ihon-zero  In  A  allows  input  from  paper  tape,  otherwise 
Input  Is  via  the  console  typewriter.  (More  than  one  character  at 
a  time  can  be  typed,  but  care  must  be  taken  not  to  overload  the 
typewriter  buffer  since  this  will  result  in  characters  being  lost.) 

b.  160-A  -  Load  and  run  anywhere  In  core  with  care  that  the  Indirect  . 
and  relative  banks  are  the  same  bank.  Selective  Juinp  Switch  i  UP 
allows  input  from  paper  tape,  otherwise  Input  Is  via  the  console 
typewriter. 

3.  Space  Requirement 8 :  430^0  locations 

7.  Error  Stop: 

In  either  cooqputer  an  error  stop  L+13  7777  OQOO  Indicates  that  the  16I 
typewriter  Is  not  ready  for  the  entering  of  characters.  Correction 
os  the  condition  before  running  will  ensure  success. 

12.  Caution  to  Users: 

Since  the  routine  Is  written  for  the  160-A,  the  selective  Juiiq>  Instruction 
Is  a  two- Instruction  set,  idilch,  on  the  160,  will  be  regarded  as  Indi¬ 
vidual  instructions. 

The  second  Instruction  of  the  two-lnstructlon  set  will  be  an  error  halt 
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If,  and  only  If,  the  routine  is  loaded  In  0;  otherwise,  garbage. 
Therefore,  for  the  16O: 

a.  The  routine  must  be  loaded  at  0,  and 

b.  A  noinal  error  halt  will  occur  after  the  first  normal  halt. 
(Error  halt  will  occur  at  L  2  after  the  normal  halt  L+l). 

Note:  This  error  halt  does  not  constitute  an  error  fault. 


Ih.  Eqiulinent  Configuration:  Minimum  160  or  160-A  SWAP  Computer, 
165  Plotter. 
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01. 

lijeUiTlFICATION 

Title:  TRACK  -  Ident.  -  01.00 
Programmer:  B.  Beale,  March  198I 

PURPOSE 

Trace  a  program,  providing  a  flex-coded  paper  tape  as  output.  Only  the 
beginning  and  ending  addresses  of  a  consecutive  instruction  string  appear 
as  output,  thus  the  object  program  is  executed  at  higher  speed  than  is 
possible  using  a  full  trace. 

USAGE 

1 .  Operational  Procedure 

a.  Clear  memory 

b.  Machine  load  the  bioctal  tape  starting  at  7000  -  correct  loading 
will  end  with  P  .  7577- 

c.  Machine  load  the  object  program  without  altering  locations  7000  - 
76003,  Position  input  data  tape  in  paper  tape  reader  if  required. 

d.  Set  P  a  7000,  A  a  stairtlng  address  of  program  to  be  traced.  Run. 

Halt  7701  will  immediately  occur  -  P  s  7002.  Without  otherwise 
altering  console,  set  A  a  normal  contents  of  A  at  start  of  object 
program.  Turn  on  punch,  run. 

3.  Space  required 

7000  throu^  753*^ 

5358  a  3493 

10 .  Timing 

Depending  on  the  nature  of  the  object  program,  its  instructions  are 
executed  at  10-^00  per  second.  The  average  is  close  to  73  per  second. 

12.  Cautions  to  User 

Because  each  instruction  must  be  Interpreted  before  execution,  the  timing 
relationships  within  a  program  are  altered  -  it  is  not  possible  to  trace 
most  card  to  tape  programs  for  this  reason.  The  track  program  attempts 
to  faithfully  execute  a  sequence  of  instructions  regardless  of  its  cor¬ 
rectness.  If  proper  selection  of  peripheral  equipment  does  not  precede 
the  activation  of  the  equipment,  the  computer  bangs  on  a  "sel"  error  indi¬ 
cation.  Punching  by  the  track  program  does  not  alter  the  object  program 
extbmal  function  selections  or  senses.  Each  instruction  is  executed 
from  upper  cord,  rather  than  from  its  normal  position  memory;  therefore 
programmed  error  stops  or  halts  in  the  object  program  show  P  s  71U6. 
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IDENTIFICATION 

Title:  Binary  to  4-blt  Decimal  Conversion  -  Ident.  HI. 00 

Programmer:  Sandord  Elkin,  March  1961 

PURPOSE 

This  subroutine  will  convert  a  24  bit  binary  Integer  Into  a  decimal  integer 
with  each  digit  In  successive  cells. 

USAGE 

1.  Operational  Procedure 

The  24  bit  Integer  must  be  placed  In  locations  BINDEC  +  lOOg  and  BINDEC 
+  101  ,  and  the  return  address  In  cell  6.  The  8-dlglt  answer  will  be 
put  In  cells  70g-77g,  with  the  units  digit  In  77g. 

3.  Space  Required:  67jq  ■  103g  locations. 

4.  Temporary  Storage:  Octal  locations  6  and  70-77. 

11.  Timing  •  Approximately  4.3  milliseconds  per  decimal  digit. 

14.  Equipment  Configuration:  Minimum  SWAP  160  computer. 

MATHEMATICAL  METHOD 

The  binary  Integer  Is  divided  by  12g.  The  remainder  Is  stored  In  the  appro¬ 
priate  location  and  the  quotient  used  as  a  new  binary  Integer. 
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HI. 

lDENTIFICA!riON 

Title:  Cenrert  Bliuiry  Coded  Declaal  to  Binary  -  Ideal  HI. 01 
PregraoDer:  J.  Pederson^  August  i960 

PURPOSE 

This  subroutine  will  convert  a  binary  coded  decimal  number  of  tqp  to  six 
digits  to  the  equivalent  binary  number  In  22  bit  arithmetic  faxnat.  The 
binary  coded  decimal  number  Is  stored  ene  digit  per  word  with  the  digit  as 
the  low  order  Tour  bits  of  the  word. 

USAGE 

1.  Operational  Procedure 

The  address  of  the  high  order  digits  of  the  decimal  number  Is  specified  by 
the  contents  of  storage  location  0010.  The  number  of  digits  In  the 
decimal  number  Is  specified  by  the  contents  of  storage  location  Oil.  The 
resulting  binary  ntimber  will  be  stored  In  location  0012  and  OOI3  with  the 
hl^  order  portion  of  the  word  In  0012. 

The  22  bit  arithmetic  format  uses  the  high  order  bit  of  the  low  order 
word  as  a  buffer  to  catch  overflows,  thus  this  bit  must  be  a  sero  and 
Is  not  considered  as  an  Information  bit.  The  low  order  bit  of  the  hi^ 
order  word  will  be  considered  as  the  2^^  bit. 

On  completion,  the  contents  of  location  10  will  point  one  location  beyond 
the  low  order  digit  of  the  decimal  number.  Contents  of  0011  will  be 
unchanged.  The  routine  uses  the  high  order  four  bits  of  location  OOI3 
to  catch  the  Overflew  from  the  multiply  process.  This  overflew  is  added 
to  the  low  order  four  bits  of  0012.  On  con^letlon  of  the  routines,  the 
program  reassembles  words  0012  and  OOI3  to  the  22  bit  arithmetic  format. 
The  assumption  In  the  conversion  routine  is  that  the  numbers  are  positive. 
Any  sign  Indication  will  have  to  be  added  later. 

2.  Argument  or  Parameters  -  None 

3.  Space  Reqjulred  -  37  locations 

4.  Ten^rary  Storage  Requirements 

0010  -  Contains  address  of  hlg^  order  digit  of  decimal  number 
0011  -  Contains  count  of  number  of  digits  in  decimal  number 
0012  -  Hl{^  order  binary  result 
0013  -  Lew  order  binary  result 
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0070  -  Gaunter  used  In  reutine 
0077  -  Maek  (0377) 

10.  Timing  -  The  reutine  takes  230.U+  198. 4  N  mlcrasecends  >diere  N  Is  the 
number  of  decimal  digits  to  be  converted.  The  reutine  vlU  take  approxi¬ 
mately  1.2  milliseconds  to  convert  a  five  decimal  digit  number.  The 
time  to  convert  binary  ceded  decimal  Infexmatlen  to  the  corresponding 
binary  Information  Is  given  In  the  table  belev.  These  times  are  derived 
on  the  assumption  that  the  binary  ceded  decimal  Information  Is  stored  one 
digit  per  verd  with  the  high  order  digit  of  the  number  given  first. 

The  break  In  the  time  sequence  between  3  and  4  digits,  6  and  7  digits, 

9  and  10  digits  Is  based  on  changing  from  a  sinsle  to  double  to  triple 
to  quadruple  precision  blxiary  representation. 

COMVERSIOH  TIME 

Number  of  decimal  digits  Conversion  time  In  milliseconds 


2 

3 

4 

5 

6 

7 

8 

9 

10 


0.11 

0,18 

1.03 

1.23 

1.43 

2,6 

2.9 

3.4 

5.0 


11.  Accuracy  -  The  routine  Is  good  for  up  to  six  decimal  digit  numbers. 
13.  Equipment  Configuration  -  Minimum  160  Counter. 
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IDENTIFICATION 

Title:  160-A  Output  -  Ident.  AH1.02 

Programmer:  D.  T.  Miller,  January  1962 

PURPOSE 

To  set  up  a  120  character  line  Image  for  on-line  printing  or  writing  on  a 
BCD  output  tape.  The  format  will  be  specified  In  the  calling  sequence. 

USAGE 

1.  Calling  Sequence 

The  routine  Is  entered  by  a  return  jump.  The  calling  sequence  will  be 
of  the  following  form; 


L 

JPR 

L+1 

OUTPUT 

Id-2 

NORMAL 

Lf3 

RETURN 

Lf4 

ERROR 

L+5 

RETURN 

Id-6 

ADDRESS 

Id-7 

XXXX  ■[ 

Id-8 

XXXX  ) 

Id-9 

XXXX  j 

Id-N 

XXXX 

LfN+1  XXXX 
I/fNf2  0000 


OF 


ERROR 

Format  Specification  Slot  -  as  many  as  desired 


Output  Mode  Specification  Slot  -  as  many  as  desired 


) 


The  calling  sequence  must  be  in  the  same  bank  as  the  output  program. 
Three  full  words  in  an  output  specification  specify  a  field  in  the 
line  image  or  a  mode  of  output.  The  format  specification  may  refer 
to  data  in  any  bank.  Although  ordering  within  the  format  specifi¬ 
cations  is  immaterial,  the  entire  group  of  format  specifications  must 
precede  the  first  output  mode  specification  word.  At  least  one  output 
mode  specification  must  be  given. 


) 
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2.  Options  and  Parameters  for  Format  Specifications 

a.  Binary- to-Octal 

L  OPPP 
Lfl  DATA 
I>2  NOOB 

PPP:  The  rightmost  print  position  to  be  used  for  this  field. 

DATA:  The  base  address  of  the  data  word. 

B:  Bank  number  of  the  bank  the  data  word  is  in. 

N:  The  number  of  octal  digits  for  output;  if  less  than  four 

octal  digits,  the  octal  digits  should  be  right  justified. 
The  maximum  is  four  digits. 

b.  Hollerith-to-Hollerith 

L  IPPP 
Lfl  DATA 
Lf2  NNOB 

PPP:  The  rightmost  print  position  to  be  used  for  this  field. 

DATA:  The  base  address  of  the  data  word. 

B:  Bank  number  of  the  bank  the  data  word  is  in. 

NN:  Number  of  words  in  the  BCD  field. 


The  BCD  Information  is  transferred  in  whole  words,  any  blanks  in 
a  BCD  field  must  be  provided  by  the  programmer.  The  maximum  number 
of  words  is  60  (120  characters). 

c.  Integer- to-Integer 

L  2PPP 
Lfl  DATA 
Lf2  OOOB 

PPP:  The  rightmost  print  position  to  be  used  for  this  field. 

DATA:  The  base  address  of  the  data  word. 

B:  Bank  number  of  the  bank  the  data  word  is  in. 

The  output  is  5  characters,  sign  plus  4  decimal  digits.  The  Integer 
is  converted  by  successive  subtraction  of  powers  of  ten. 
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3.  Options  and  Parameters  for  Output  Mode  Specifications 

a.  Print  On-Line 

L  4000 

Id-1  OOCC 

Lf2  0000 

CC:  Carriage  control  character,  any  of  those  applicable  to 

the  CDC  1612  printer.  The  paper  motion  will  be  pre-skip 
except  for  selection  of  one  of  the  six  monitor  channels, 
then  it  will  be  post-skip. 

b.  Write  on  BCD  Tape 

L  3U0T 

Id-1  KOCC 

Id-2  0000 

U:  Tape  control  unit  number  used. 

T:  Tape  number  in  proper  unit. 

CC:  Carriage  control  character,  any  of  those  applicable  to 
the  CDC  1612  printer.  The  paper  motion  will  be  pre-skip 
except  for  selection  of  one  of  the  six  monitor  channels, 
then  it  will  be  post-skip. 

K:  K  >  4  provides  for  blocked  output.  The  line  image  is 

stored  in  blocked  form  until  a  normal  write  tape  sequence 
is  encountered,  and  then  outputs  the  accumulated  lines  in 
one  record.  A  maximum  of  5  lines  may  be  blocked,  then 
they  will  be  put  out  in  one  record  and  blocking  will 
continue. 

The  routine  is  coded  for  the  CDC  163  tape  unit. 

6.  Error  Returns 

In  the  event  of  error,  error  indications  are  placed  in  the  A-reglster 
and  the  calling  sequence.  The  address  of  the  erroneous  calling  sequence 
word  is  stored  in  the  calling  sequence  to  the  output  routine.  One  of 
the  following  numeric  codes  is  placed  in  the  A-register: 

1  ■  Print  position  not  in  the  range  0-120j^q. 

2  ■  Illegal  output  specification  number. 

3  No  output  mode  specification  given. 


) 
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8.  Tape  Mounting 

Controlled  by  programmer. 

9.  Format  of  Input  and  Output  Data 

a.  Numeric  data  Is  assumed  to  occupy  one  full  word  In  memory.  Hollerith 
data  Is  assumed  to  occupy  one  or  more  consecutive  full  words  In 
memory  for  any  one  calling  sequence  reference. 

b.  Output:  Controlled  by  programmer. 

10.  Selective  Jump  and  Stop  Settings 

None, 

11.  Accuracy 

Conversions  are  designed  for  full  significance  obtainable. 

12.  Cautions  to  the  User 

a.  No  check  Is  made  for  overlapping  fields.  Any  entry  to  the  Image 
supercedes  any  previous  entries  In  the  same  position  (the  Image 
Is  Initially  filled  with  BCD  blanks). 

b.  The  routine  does  not  Interfere  with  any  buffering  In  operation  at 
the  time  of  entry, 

c.  No  tape  checking  Is  done  within  the  routine. 

13.  Total  Space  Required 


618j^q  Program,  305^^^  temporary  storage  for  blocked  records. 
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HI. 

HBHTIFICATION 

Title:  Conflex  -  Ident.  AHI.03 
PURPOSE 

This  routine  allows  you  to  use  the  *Plexowriter  Model  35-U  la  the  6  level 
mode  to  prepare  programs  and  data  for  the  16qA.  All  33-U  Flexowrlter 
characters  produce  equivalent  i6qA  Flexowrlter  characters  except 
",  $,A,  9,  #,  X,  *,  ?,  and  uppercase  period. 

OPERATING  PROCEDURE 

1)  Master  clear. 

2)  Set  all  banks  equal  to  1 

3)  Mount  conflex 

4)  Machine  load  at  P  -  0000 

5)  Set  P  .  OlltO 

6)  Mount  tape  prepared  on  35-^  Flexowrlter 

7)  Turn  on  punch 

8)  Run 

9)  Operation  Is  terminated  by  moving  run  switch  to  off. 

*(Standard  Flexowrlter  used  with  G-I5) 

Note:  If  Jump  switch  #1  -  ON  coo^ter  will  stop  on  illegal  character. 
If  Junq?  switch  #1  -  OFF  computer  will  not  stop  on  Illegal 
character. 
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N^oter. 


Punches  44  i/hlch  is ' 


Punchcj  54,  which  is  ( 

Punches  57,  54,  47 
which  is  ) 


Punches  46  w.ilch  is 
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Code 

Delete 
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Note 

Punches  47,  46,  57 
which  is  -jl 
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> 

• 
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• 

i 
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HI. 

wjomsicmas 

Title:  General  Binary  to  BCD.  BCD  to  Binary  ConTeralon 
IMECanr  -  Ident.  AH1.04 
Programert  A.  R.  Ferro,  October  1962 


PURPOSE 

Uses  a  format  statement,  similar  to  Fortran  statements,  to  specify  the  type 
of  conversion  to  be  made  In  the  Input  or  output  field.  The  Input  and  output 
fields  are  always  Internal  Information  and  are  not  In  ajoy  way  associated  with 
external  equlpaient.  All  Input  aztd  output  Information  is  handled  Internally 
and  Is  operated  on  specifically  by  the  requirements  made  In  the  format  state¬ 
ment.  Ihe  format  statements  are  conversion  specifications  which  control 
the  conversion  of  data  from  Internal  machine  representation  to  packed 
external  representation. 

BCTCnv  Is  a  closed  subroutine  entered  by  a  return  Jump  (JFR)  with  the  contents 
of  the  A-reglster  specifying  the  t^pe  of  conversion. 


USACEE 


1.  Calling  Seqnence: 


L-1 

L 

L  +  2 
L  +  3 
L  +  k 
L  +  5 
L  +  6 

L  +  7 

L  +  10 


IDH  0  or  1  0  >  BCD  to  Binary 

1  >  Binary  to  BCD 

JPR  (SHBCD 

Location  of  format  statement 
Starting  Location  of  Input 
Terminating  location  In  liqiut 
Stemming  location  of  output 
Terminating  location  of  output 
Error  Indicator 
Return 


3.  Space  required:  2063g  "  locations 

if.  Toqporary  Storage:  Direct  cells  70-7^ 

3.  Beak  Allocation:  Relative  and  direct  mnst  be  the  same.  Indirect  must 
be  the  sow  as  the  amdn  program,  and  laoput,  output,  and  format  fields 
must  be  In  the  same  bank  as  the  indirect  bank  setting. 

8.  Error  Returns: 

An  error  sets  an  error  Indicator  at  Lf7;  will  also  be  In  the  A-reglster 
at  the  time  control  transfers  to  the  mala  program. 
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Ihe  error  codee  are: 

A  B  1  The  first  left  parentheslB  Is  missing 

B  2  Illegal  character  where  a  number  should  appear 
B  3  Illegal  code  for  parenthesis 

=  4  Illegal  Imbedded  parenthesis 

=  5  Digit  count  exceeds  99  or  output  exceeds  the  range 
B  6  Conma  following  a  repeat  digit  or  Illegal  alpha  character 
B  7  Output  exceeded  during  alphanumeric  format 
=  10  Integer  exceeds  range  of  ±  2047 


10.  Input-Output  Ibrnats: 

a.  Ibmat  Statement 

The  format  statement  must  always  be  packed  BCD  Information  with 
a  left  parenthesis  begixinlng  the  statement  and  terminating  with 
a  rlc^t  parenthesis.  Between  the  left  and  right  parentheses 
repeat  parens  may  be  used  such  as: 

(2(i6,3HABC,4A6)>120,2X,4(o5,02)). 

b.  Conversion  Types 

There  are  two  nuiwrldal  conversion  type  codes:  I,  for  Integer, 
and  0  for  octal;  and  three  alphanumerical  conversion  type  codes: 

A,  X,  and  H. 

1  Conversion 

In:  Where  n  is  an  unsigned  Integer  specifying  the  nusber 

of  characters  in  the  field. 

Input:  Causes  conversion  between  external  BCD  to  internal 

binary  representation.  Spaces  are  entered  as  zeros  and 
the  Integer  variable  may  take  on  values  from  -2047  to 
2047  inclusive.  A  minus  sign  will  count  as  a  character 
read.  Naxlmun  Integer  would  be  l4  for  positive  values  and 
15  for  negative  values.  If  n  Is  greater  then  4  (or  5  A>r 
negative)  during  input,  the  leading  characters  of  tbs  Ih^t 
field  will  be  ignored  and  only  one  work  will  be  stored  in 
the  output  field.  If  the  integer  >  exceeds  the  range  of 
t  2047,  the  routine  will  exit  to  an  error  indicator. 

Kxsaple:  Input  field  contains  3  words  0305,  0212,  0407.  The  result 
in  the  output  field  would  be  one  word  3777a  ^  conversion 
would  continue  from  the  character  foUoNing  the  07. 
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Output:  Causes  conversion  between  Internal  fixed  point  representation 
and  external  BCD  representation.  The  external  representation 
Is  of  the  form,  (-)  DDDD,  where  D  Is  a  decimal  digit  and  the 
minus  sign  or  blank  may  appear.  The  field  width  must  be 
large  enouidi  to  Include  the  sIqi;  It  may  be  larger  to  Include 
leading  blanks  In  the  field.  Leading  zeros  are  replaced  by 
blanks  except  for  a  zero  value.  Figure  1  shows  the  effect 
of  various  width  fields. 


15 

l4 

■  13 

12 

11 

0 

0 

0 

0 

0 

c 

y 

5 

5 

5 

5 

86 

86 

86 

86 

8 

7^3 

743 

743 

74 

7 

1395 

1395 

139 

13 

1 

-  6 

-  6 

-  6 

-6 

.  - 

-  23 

-  23 

-23 

-2 

• 

-  456 

-456 

-45 

-4 

• 

-1769 

-178 

-17 

-1 

- 

Figure  1. 


0  Conversion 

On:  Vlhere  n  Is  an  unsigned  integer  specifying  the  number  of 

characters  In  the  field. 

Input:  During  Input  Is  Is  expected  to  find  only  spaces,  digits 

from  0-7  and  possible  a  minus  sl0i.  All  other  characters 
are  Illegal.  If  n  Is  greater  than  4  will  cause  n-4  leading 
characters  to  be  Ignored. 

Output:  0  specification  causes  output  of  the  octal  equivalent  of 
the  I2-blt  representation  of  the  Integer  value.  Leading 
zeros  are  not  siq>pressed.  If  n  Is  less  than  4,  n  leading 
digits  will  be  placed  into  the  output  field.  If  n  Is  greater 
than  4,  n-4  leading  spaces  will  precede  the  4  digits  In  the 
output  field. 
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The  three  alphanumeric  conversion  specifications  provide  for  transmission  of 
alphanumeric  field,  spacing  by  skipping  character  positions,  and  Hollerith 
Information  from  the  Input  list.  These  are  converted  by  A,  X,  and  H 
specifications . 

A  Conversion 

An:  Where  n  Is  an  \mslgDed  Integer  specifying  the  number  of  cheo'acters 

In  the  field. 

Input:  Transfers  n  characters  to  the  output  field.  If  n  Is  less  than 

2,  n  characters  are  transferred.  If  n  is  greater  than  2,  n-2 
leading  characters  are  Ignored. 

Output:  Transfers  n  characters  to  the  output  field.  If  n  Is  less  than 

2,  n  characters  plus  the  necessary  leading  blanks  are  trans¬ 
ferred  to  the  output  field.  If  n  Is  greater  than  2,  n-2  blanks 
precede  the  alphanumeric  characters. 

X  Conversion 

nX  Where  x  Is  an  unsigned  Integer  specifying  the  number  of  characters 

In  the  field. 

Input:  n  characters  are  skipped  In  the  input  field. 

Output:  n  spaces  are  placed  Into  the  output  field. 

H  Conversion 

nH  Where  n  Is  an  \inslgned  integer  specifying  the  nianber  of  characters 

In  the  field. 

Input:  n  characters  are  skipped  in  the  liqput  field. 

Output:  Causes  n  alphanumeric  characters  Immediately  to  the  rl£^t  of  the 

H  to  be  transferred  to  the  output  field. 

Repeated  Groups 

A  repeat  factor  may  precede  any  of  the  K,  0  and  A  specification  codes. 

Limits  of  the  repeat  are  n  =  99*  Oroups  may  be  repeated  In  a  stmllar  manner. 
The  group  to  be  repeated  Is  enclosed  In  parentheses  and  a  repeat  factor 
given  preceding  the  left  parenthesis. 

Exaa^le:  2(i6,3X,4A2) 

12.  Caution  to  User:  A  repeated  group  may  not  contain  a  repeated  group. 
Exaogtle,  Illegal:  2(16,3X,2(4A2)) 

l4.  Eiialpnent  Configuration:  Minimum  SWAP  l60-A  computer. 
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H2. 

XDENTmCATIOlf 

Title:  Sort  3X  -  Ident.  H2.01 

l^grannier:  (Control  Data  Corporation  Sales),  November  I962 
FUNFOSE 

Sort  3X  Is  a  revised  version  of  Sort  34-  vhlch  is  replaced.  Sort  3X  accepts 
Input  of  a  file  from  one  reel  of  magnetic  tape  lAere  the  Information  Is 
recorded  as  one  Item  per  physical  tape  block.  This  Infomation  Is  sorted 
on  up  to  ten  sort  key  fields  using  any  standard  Control  Data  tape  transport. 
Four  tape  tmlts  are  required.  The  sorted  file  Is  vrltten  out  on  tape  with 
one  telffl  per  block  of  magnetic  tape.  Either  a  minimum  Control  Data  I60  or 
16O-A  computer  Is  iised. 

USAGE 

1.  Operational  Procedure 

a.  Load  Program  Tape 

1.  Turn  on  paper  tape  reader. 

2.  For  I60-A  set  all  bank  controls  to  bank  0. 

3.  Depress  the  load-cleeu*  svltch  to  cleeu:  axid  then  place  in 
load  position. 

4.  Run.  Tape  vlll  load  and  stop  vlth  P  *  3700  As236l.  ^Is 
loads  the  program  version  for  the  I63,  l64,  or  I62  tape 
systems. 

5.  For  1607  or  I615  tape  systems,  Clear.  Place  the  load-clear 
switch  In  the  load  position. 

6.  Set  P  =  3360,  Run.  Tape  will  load  the  1607/1615  tape  driver 
routines  axid  stop  with  P  3  3722  A  3  7012. 

b.  Define  Sort  Fields 

1.  Place  enter-sweep  switch  at  ENTER.  Press  load-clear  switch. 

2.  Set  P  3  0100 

3.  Enter  octal  equivalent  of  location  of  left-most  character  of 
sort  field  In  Z. 

4.  Press  step  switch. 

5.  Fhter  octal  equivalent  of  location  of  rl^t-nost  character  of 
sort  field  In  Z. 

6.  Press  step  switch. 

7.  Repeat  steps  3  to  6  for  eetch  succeeding  minor  sort  field. 

8.  Press  step  switch  2  times  to  place  zeros  edter  last  Held 
definition  If  9  or  fewer  fields  are  used. 

9.  Return  all  switches  to  center  position  and  press  load-clear. 
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EXAMP1£:  Sort  a  card  record  on  coluama  10  to  19  as  major  field  and  columns 

1  to  5  as  a  minor  field,  nie  6  nxmtbers  entered  In  the  program  are 
In  order:  0012,  0023>  0001,  0005,  0000,  0000. 

c.  Define  Sort  Order  for  Magnetic  Tape  Character  Code 

Sort  3X  Includes  a  sort  order  table  for  standard  BCD  magnetic 
tape  codes.  If  a  different  code  Is  to  be  used,  place  the  sort 
order  table  In  locations  OSOO  to  0277  either  manually  from  the 
console,  or  by  machine  loading  a  previously  created  binary  in¬ 
put  paper  tape  sort  order  table. 

The  present  sort  order  frcn  low  to  hl£^  is  as  follows: 

Blank,  0123^56789 

abcdefghljklmnopqrst 
uyvxyz-8t/,%$*.  #@ 

other  special  codes 

To  define  a  new  sort  order,  for  Instance,  blank  A-Z,  0-9, 

It  Is  necessary  to  place  a  sort  order  number,  starting  with 
octal  00  In  the  location  corresponding  to  the  magnetic  tape 
Input  coding  of  the  required  character.  ISxus,  blank  cones 
In  as  octal  20,  a  is  6l,  B  Is  62,  etc.  This  new  sort  order 
would  re^re  that  location  0220  contain  a  zero,  026l  contain 
0001,  0262  contain  0002,  etc. 

d.  Mount  Magnetic  Tapes 

1.  Mount  Input  tape  on  tape  \mlt  number  1. 

2.  ^unt  scratch  tapes  of  sufficient  length  on  tape  imlts  2,  3,  4. 

3.  Manually  position  €□.!  4  tapes  at  load  point. 

e.  Running  the  Sort  Program 

1.  Specify  parity  of  Input  tape  by  placing  In  location  0002  the 

nuniber  0000  for  even  parity  0001  for  odd  parity. 

2.  Press  the  load-clear  switch  on  console. 

3.  Put  run-step  switch  In  run  position. 

4.  Ixqmt  pass  will  take  place.  On  completion,  all  tapes  will 
rewind.  Tape  number  1  will  rewind  to  imload  position  and 
conputer  will  stop  with  P  =  0643  A  =  0643,  Z  »  7700.  For 
other  stops  and  corrective  action,  see  Halt  Table  (Appdx  l). 

5-  Replace  Input  tape  on  tape  unit  1  with  a  scratch  tape. 

6.  Move  run-step  switch  to  the  center  position  and  return  It  to 
run  position. 

7«  The  sort  will  continue  to  conq)letion  and  coaputer  will  stop 
either  with  P  =  0701  A  =  0001  or  P  *  0711  A  «  0003-  The 
contents  of  A  will  indicate  which  tape  contains  the  output 
sorted  file.  This  tape  will  be  In  the  unload  condition. 
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8.  Return  run-step  switch  to  center  position. 

9a.  For  162,  l63>  or  l64  tape  systems:  If  the  output  Is  on  tape 
unit  Ij  press  load-clear  and  return  It  to  center.  Set  P  s 
0130  and  run  to  rewind  the  error  tape  number  2.  If  the  out¬ 
put  Is  on  tape  unit  3,  press  load-clear  and  return  to  center 
position.  Set  P»«0135  aod  run  to  rewind  error  tape  unit  4. 

9b.  For  1607  or  1615  tape  system:  If  output  is  on  tape  unit  1, 
press  load-clear  and  return  to  center.  Set  P  <=  3711  and  run 
to  rewind  error  tape  unit  2.  If  output  Is  on  tape  unit  3>  press 
load-clear  and  return  to  center;  set  P  =>  371^  and  run  to  rewind 
error  tape  unit  4. 

f.  List  Error  Tape 

The  error  tape  contains  records  involved  in  an  unrecoverable 
read  situation.  These  records  are  also  on  the  sorted  output 
tape.  The  operator  should  check  and  correct  such  errors. 

g.  To  Perfom  Another  Sort 

The  sort  program  Is  self-restoring  and  may  be  used  without 
reloading.  If  the  same  set  of  sort  fields  Is  to  be  used, 
mount  the  new  Input  and  run  the  sort  program  starting  with 
Step  e. 

h.  Rerun  Points  or  Sort  Termination 

1.  To  terminate  sort  (16O-A)  set  optional  stop  one  OR.  Program 
will  stop  after  ccn^letion  rewind  of  tapes  at  end  of  current 
merge  pass  with  A  ^  abed.  Octal  digits  a  and  b  are  the  tapes 
\dilch  were  Input  to  the  merge,  c,  and  d,  are  the  tapes  with  are 
the  output  of  the  merge  pass. 

2.  For  a  rerun  point,  remove  tapes  a  and  b  and  save.  Replace 

them  with  the  new  scratch  tapes.  Run  from  the  point  of  the  stop. 

3.  To  terminate  sort  for  fturther  running  at  a  later  date,  remove 
tapes  3  and  d  and  save  them. 

1.  Resuming  Terminated  Sort  or  Rerun 

1.  Load  sort  3X  program,  or  if  already  In  machine  go  to  step  2. 

2.  Place  Intermediate  tapes  obtained  from  "h"  avlce  on  tape 
\inlts  1  and  2. 

3.  Master  clear.  PlsKse  1234  In  A  register.  Set  P  »  0764. 

Step  3  times;  this  places  the  correct  tape  numbers  In  the 
read  control. 

4.  Master  clear.  Set  P  ■  0777  and  run. 

Stops  may  occur  with  P  »  :  IO36  IO67  1077  1104,  In  all  cases 
run  to  continue. 
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5.  Batik  AHoeatloa:  Set  all  16O-A  beak  controls  to  Bank  0. 

7.  Error  Stops 

Appendix  1,  HAIff  TABI£,  glTes  each  stop  and  corrective  action. 

Sort  3X  provides  error  cheeking  at  several  levels.  Ihe  main  source 
of  possible  errors  Is  the  magnetic  tape  system;  Sort  3X  provides 
cheeks  and  corrective  action.  The  cheeks  are  as  follovs: 

a.  Checks  for  short  records  from  Input  tape:  Sort  places  a 
lover  limit  of  I6  characters  for  an  acceptable  input  record.  If 
a  aaaller  record  Is  Introduced  a  0426  stop  occurs.  If  the  short 
record  Is  not  expected.  It  should  be  discarded  from  the  sort  as  a 
probable  noise  record  generated  by  bad  tape. 

b.  Intermediate  tape  records  oust  have  a  given  format.  Sort  checks 
each  intermediate  tape  record  for  the  correct  format  before  releas¬ 
ing  It  to  the  merge  operation.  Stop  3316  provides  the  option  to 
try  to  read  the  record  again  or  to  eliminate  It  from  the  merging 
operation.  On  elimination,  a  copy  of  the  record  Is  produced  on 
punched  pc^r  tape  for  further  analysis  by  maintenance  personnel. 

9.  Input  and  Output  Tape  Mountings 
See  l.d.  page  2 

11.  Timing 

To  estimate  the  time  required  by  Sort  3^  to  process  a  file  of  records, 

It  Is  necessary  to  know  the  duration  of  ]^se  1,  the  duration  of  each 
merge  pass  of  phase  2  and  the  duration  of  ]^se  3  as  veil  as  the  tape 
rewind  time  required  for  each  pass. 

Ttie  following  definitions  and  timing  fonoula  give  the  sort  time  using 
Sort  34’  using  various  tape  uxilts. 

M  EuBber  of  records  to  sort 

R  EuBber  of  characters  In  record.  If  odd,  take  next  even  number. 
K  Etaiber  of  characters  in  key.  If  odd,  take  next  even  number. 

HP  first  pass  blocking  fetctor  »  2970  Integer  portion  of  division 

j,  K4R44 

P  EuBiber  of  passes  «  log^  gp 

0  drouplng  in  merge  pass  = 

HB  Euiid>er  of  data  blocks  In  merge  pass  ^ 

BS  Block  size  for  merge  In  characters  6  +  G(K'fR+4) 

CFR  Characters  contained  per  fUU  reel  of  tape 
ns  Bomber  of  characters  used  for  Intezblock  space 
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TR  Transfer  rate  In  thousaxt&s  of  characters  per  seconA 
BS  Bead  start  stop  tine  (mllUsecoads ) 

WS  Write  start  stop  tine  (nllUseconds ) 

SD  Stop  delay  (nlUeseconds  dead  time  for  continuous  read  or  write) 
RW  Rewind  time  in  minutes  for  a  full  reel  of  tape. 

MS  Internal  processing  tine  to  merp  one  group  of  data  to  get 
an  output  block.  (mlUeseconds} 

T  Sort  time  In  minutes 

The  sorting  fomila  for  Sort  3X  Is  as  follows. 


T  -  (N  +  g)(RS  +  SD  +  Sg)  +  (P)(»B)(RS  +  WS+  MO  +  ^)  +  (H(WS  +  SD  +  ^)) 


60,000 


2H(R  +  IBSJ 


+  (P)  (.75) 


Where  MG  =  (G)  (.15)(K  +  .3R  +  12) 


EXAMPLE 

This  exBBQ)le  Illustrates  the  use  of  the  Sort  3X  timing  formula.  Assume  that  a 
file  of  records  to  be  sorted  has  the  following  specifications: 

Record  length  (R)  =  80 
Number  of  records  (R)  =  20,000 
Length  of  key  (k)  s  16  In  two  fields 

163  magnetic  tapes  with  a  30  EC  transfer  rate  are  to  be  used. 

First  determine  the  first  pass  blocking  factor  EF  »  2970  «  29.7 

iwS+lf 

Taking  the  Integer  Txurtlon  we  have  BF  =  29 

We  then  determine  the  number  of  passes  (P)  by  finding  R/BF  »  689 
And  take  the  log  to  the  base  2,  or  use  table  2  to  detenalne  that  P  s  10 
We  next  determine  G  3=  986  «  9«d6  so  take  G  >  9 

100 

We  then  determine  RB  -  R  »  20,000  »  2,222 

0  9 

And  determine  BS  >  6  +  G(K+R4Jf)  =>  6  +  9(l00)  >  906 

Taking  values  of  CPR,  IBS,  TR,  RS.  WS,  SD,  RW  from  the  tape  characteristics 
table  and  computing  MG  «  (G)  (.19)(K-4-.3R  -*-12)  «  70.2  milliseconds.  We  substi¬ 
tute  In  the  formula  to  find  the  sort  tine  Is 
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^  _  (20,000  +  A0,000)(4»  +  10  +  ^)  +  10  x  2,222(A  +  18  +  70.2 


60,000 


^  20,000(18  +  10  4-  |0)  +  jZ^OOO  (230)  -f 
60,000  I  5,520,000 


60,000 

(10)(.75)  2,222(10567 


5,520,000 


3.33 


_  (20  +  40)  (16.67)  +  10  X  2.222(152.6)  (20)  (30.33)  ' 

^  “  _ 29  + 


60  60 

T  ■  5.95  +  56.5  +  10.3  +  16  ■  88.8  minutes 


60 


4x2.3  ^  7.5x2.2x1.056  I 

OF  5.52  I 

3.33 


Table  2  Number  of  merge  passes 


N/BF 

P 

1-2 

1 

3-4 

2 

5-8 

3 

9-16 

4 

17-32 

5 

33-64 

6 

65-128 

7 

129-256 

8 

257-512 

9 

513-1024 

10 

1025-2048 

11 

2049-4096 

12 

4097-8192 

13 
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Mngnctlc  Tnpp  Clvirncti*riiicic«  for  Sort  3X  Timing  riirpotci 


Deacrlptlon  Tape  Unit 

163 

166 

603IJ> 

603HD 

606t.D 

60f>lll) 

1607 

CPR 

Characters  per  reel 

5.52m 

5.52m 

5.S2M 

15. 3M 

5.52M 

15. 3M 

5.52M 

IBS 

Characters  for 
inter  block  apace 

ISO 

150 

150 

417 

150 

417 

150 

TR 

Character  transfer 
rate  (KC) 

30 

15 

15 

41.5 

30 

83 

30 

RS 

Read  Start 
(MS) 

5 

7 

7 

7 

5 

5 

5 

WS 

Write  Start 
(MS) 

18 

27 

7 

7 

5 

5 

7 

SD 

Stop  Delay 
(MS) 

10 

10 

0 

0 

0 

0 

0 

m 

Rewind  time  for 
full  reel  (minutca) 

3,33 

2 

1.33 

1.33 

1.33 

1.33 

3.33 

Nae«i  5.52  M  -  5,520,000 
15.3  M  -  15,300,000 
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l4.  Equlpient  Configuration 

Minimum  SWAP  l60  or  l60-A  eoiQiuter  and  four  magnetic  tape  units. 

(163,  164,  1607  or  606) 

MBimOiD 

The  sort  process  used  In  Soirt  3X  Is  performed  In  three  steps.  The  first 
called  Riase  1  la  an  Internal  sort  \Ailch  reads  Individual  records,  determines 
the  sort  control  flleds,  and  sorts  Internally  to  form  sorted  groups  of 
records.  Riase  2  Is  a  tuo  vay  merge  of  the  Individual  sorted  groups  uhlch 
were  formed  In  Riase  1.  Riase  3  performs  the  final  two  way  merge  to  form 
the  soirted  file  and  also  writes  out  the  Individual  records  In  their  original 
form.  It  should  be  noted  that  althou^di  the  liqmt  and  output  of  the  Sort  3^ 
program  are  Individual  records,  the  IntermSllate  tapes  formed  between  the 
various  phases  of  the  program  are  blocked  up  to  form  records  of  1,000 
characters  for  maytimnn  magnetic  tape  efficiency. 

Sorting  Technique 

The  sorting  technlqjue  used  In  the  Sort  3X  program  consists  of  reading  Input 
records  from  the  Input  file  until  the  total  of  records  plus  key  Is  a  total 
of  3>000  characters.  ISiese  records  are  then  arranged  In  sequence  and  written 
on  alternate  tapes  In  blocks  of  1,000  characters  of  record  plus  key.  After 
the  IzQiut  file  has  been  read  In,  j^se  2  of  the  sort  program  merges  these 
sorted  sequences  Into  longer  sequences.  When  there  Is  one  merge  left,  the 
soz*t  34  program  automatically  goes  Into  phase  3  idilch  produces  one  long 
sequence  idilch  Is  the  sorted  file. 

One  tape  Is  used  for  Input,  and  two  units  are  used  for  output  during  the 
Initial  sorting  process.  In  the  merging  process,  the  Input  units  become 
output  units,  and  vice  versa. 

Sort  3X  accomplishes  the  sorting  operation  In  three  steps  -  Riase  1,  phase  2, 
phase  3. 


Riase  1 

1.  Riase  1  detennlnes  the  total  size  of  the  sort  key  filed  and  reserves  space 
prior  to  the  data  for  the  key  flSld. 

2.  Each  record  Is  read  Into  the  area  Ismedlately  following  Its  reserved  key 
field,  the  site  of  the  record  Is  detezmlned  from  the  read  In  comaand. 

3.  The  key  Is  extracted  from  the  record,  recoded  to  a  sort  seqjuence  code, 
and  placed  In  flont  of  the  record  In  Its  key  field.  The  key  Infbxmatlon 
IS  -extracted  troa  np  to  ten  fields  In  the  record. 

k,  Sumcesslve  records  are  read  In  until  the  storage  oceiqpled  exceed 
3,000  characters  for  key  and  records. 

5.  The  last  record  read  In  Is  backspaced  to  be  accepted  as  the  first 
record  of  the  next  block. 
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6.  Ihe  information  is  sorted  internally  to  form  a  sequence  of  not 
over  3>000  characters  in  final  sort  order. 

7.  The  information  is  written  on  the  output  tape  in  blocks  of  not 
over  1,000  characters.  The  blocking  factor  is  detennined  solely 
by  the  number  of  records  plus  key  \Aiich  can  be  contained  in  less 
then  1,000  characters. 

8.  Output  is  to  the  alternate  output  tape,  ■rfien  there  is  a  break  in 
sort  sequence  between  the  last  record  output  from  the  previous 
block  and  the  birst  record  output  of  the  current  block. 

9.  A  sequence  count  is  kept  so  there  will  be  an  automatic  switch  to 
phase  3  if  the  records  were  in  sort  on  input,  or  were  brou^t  into 
sort  by  the  internal  sort  process. 

Phase  2 

1.  Phase  2  merges  the  sequences  written  during  phase  1  using  as  many 
merge  passes  as  are  required  to  arrive  at  two  sorted  files,  one 
one  each  of  the  two  output  tapes.  The  files  are  still  blocked  to 
a  maximum  of  1,000  characters  per  block.  G^ie  blocking  information 
is  contained  on  the  magnetic  tape  blocks. 

2.  On  reaching  two  sorted  files,  phase  two  goes  to  phase  three. 

Hiase  3 

1.  The  two  sorted  files  are  merged  to  fora  one  sorted  output  file. 

2.  At  output,  the  key  is  stripped  from  the  record,  and  the  original 
record  is  written  on  the  output  tape. 

3.  If  at  any  time  during  the  sort  process  in  phase  1,  2  or  3/  a  record 
was  encowtered  idiich  was  not  recoverable  during  the  read  process, 
the  record  is  flagged  as  possibly  being  wrong.  The  bad  records  are 
written  on  an  alternate  output  tape  as  well  as  being  written  on  the 
final  output  tape.  This  allows  for  the  operator  to  peruse  the  possible 
errors  and  take  corrective  action. 

Allowable  Input  Record  Cionfiguratlons 

Sort  3X  accommodates  variable  length  input  records  idilch  must  appeeu*  on  tape 
singly  as  one  record  per  block  of  tape.  The  maximum  size  of  an  input  record 
must  be  such  that  the  number  of  characters  in  the  record  plus  the  number  of 
chairacters  in  the  key  do  not  exceed  934  characters. 

Maximum  File  Length 

The  input  file  to  be  processed  by  Sort  3X  must  be  no  longer  than  the  number  of 
records  that  can  be  contained  on  a  single  tape  reel  when  in  the  blocked  form 
for  the  merge  passes.  This  number  depends  on  the  record  length,  key  length, 
axid  fAiether  the  processing  is  being  perforaed  on  a  hlc^  density  or  low  density 
magnetic  tape  mode.  The  following  table  shows  the  maximum  number  of  records 
idilch  can  be  processed  as  one  Job. 
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Table  1 


Key  and  record 
size  In 
characters 

Maximum 

number  o£  records 

Low  density 

High  density 

10 

450,000 

1,000,000 

20 

225,000 

500,000 

30 

150,000 

333,300 

40 

111,000 

250,000 

50 

90,000 

200,000 

60 

75,000 

166,700 

70 

64,200 

141,500 

80 

56,500 

125,000 

90 

50,000 

111,100 

100 

45,000 

100,000 

120 

37,500 

83,000 

140 

32,100 

71,500 

160 

28,000 

62,500 

180 

25,000 

55,500 

200 

22,500 

50,000 

300 

15,000 

33,300 

400 

11,100 

25,000 

500 

9,000 

20,000 

600 

7,500 

16,700 

700 

6,400 

14,100 

800 

5,600 

12,500 

900 

5,000 

11,100 
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example; 

Compute  the  maximum  file  size  for  records  30  characters  long  using  a  sort  key 
of  six  characters.  To  total  record  plus  key  size  Is  36  characters.  Assume 
hl^  density  mode  of  processing. 

From  the  table  we  find  that  for  60  characters  we  have  a  file  size  of  166,700 
records  and  for  30  characters  we  have  a  file  size  of  200,000  records  thus  we 
can  use  a  file  of  approximately  l80,000  records. 

Sort  Kby  Fields 

From  one  to  ten  fields  of  each  Input  record  can  be  specified  to  control  sequen¬ 
cing  of  the  file,  niese  fields  can  be  located  anyidiere  within  the  record,  pro¬ 
vided  they  are  In  the  the  same  place  in  each  record.  The  fields  can  be  of  any 
length. 

The  locations  of  each  control  field  Is  specified  by  the  contents  of  locations 
0100,  0101  for  the  first  field,  0102,  0103  for  the  next  lover  field,  etc.  In 
the  core  storage  of  the  I60  or  I60-A  computer.  ^Die  values  of  these  locations 
can  be  very  conveniently  set  up  by  the  operator  by  following  the  operating 
instructions . 

There  Is  no  penalty  for  using  any  number  of  fields  or  the  location  of  the 
fields  In  the  record.  The  control  fields  can  contain  any  character.  The 
standard  collating  sequence  is  Incloided  In  the  program,  but  can  be  changed  by 
changing  the  contents  of  the  location  0200  to  0277  In  the  Sort  3X  program. 

Ifareadable  Input  Records 

Input  tape  blocks,  during  any  phase,  ere  flagged  for  special  treatment  on  out¬ 
put.  An  unreadable  record  Is  one  that  causes  redundancy  error  indications  after 
eight  attempts  to  re-read  the  Input  record.  A  read  error  does  not  caise  the 
sort  program  to  stop.  In  the  phase  3  (output  ]^se)  the  unreadable  records 
are  put  out  with  the  regular  sorted  file  and  they  are  also  listed  on  the 
error  tape. 
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JjrJKHMaPIAIE  TAPE  FOBMATS 

IQie  intemedlate  tapes  produced  by  sort  3X.  are  written  In  binary  and  are  pro¬ 
vided  with  a  header  record  and  a  trailer  record,  nie  tape  records  in  between 
also  are  blocked  records.  All  records  are  a  nultlple  of  two  characters  and . 
Idll  be  shown  In  a  tm  character  representation  as  seen  In  menory.  This  Is 
also  the  form  of  the  punched  paper  tape  output  of  an  error  from  the  3316 
stop. 

!Ihe  fomats  are  as  foUows: 

Header  RecortL 

7772  Header  code  identifying  this  record  as  a  header 

OOxx  Tape  euscount  number.  Starts  at  1  and  is  increased  by  1  for  each  tape 

written. 

yyyy  Key  size.  Size  of  sort  key  in  words  for  rerun  of  the  program. 
Infonaatlon  Record 

7773  WpgiiTim'ing  of  infozinatlon  block  code 
joaoc  Huniber  of  records  in  block 

7776  Beginning  of  record,  laay  be  777^  if  record  came  from  parity  error 
block 

yyyy  Runiber  of  cosQiuter  words  to  reach  next  record 
kkkk 

’  Key  information,  coded  in  sort  order  code 

« 

kkkk 

rrrr 

Original  record 


rrrr 

7776  Beginning  of  next  record 

yyyy 


rrrr 


7773  of  block  code  (placed  where  next  beginning  of  recoztl  code  nl^t  be) 
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Trailer  Becord 

7771  Beginning  of  trailer  code 
0000 

7773 

0000 

bbbb  Count  of  nunber  of  infoznation  blocks  on  the  tape 

bbbb 

rrrr 

rrrr  Count  of  number  of  infozvation  records  on  the  tape 
rrrr 

The  counts  in  the  trailer  record  are  carried  in  BCK  notation. 
SAMPLE  TAPE 

A  sample  intezmediate  tape  containing  the  records  2abc,  3abc  labc  which 
are  being  sorted  on  column  k  and  1  would  appear  on  an  intenlediate  tape  in 
the  following  fom,  assuming  that  the  block  size  was  two  records. 

Header 

7772 

OQjoc  Tape  account  number 

0001  Sort  key  is  one  word  or  two  characters 

Infonnation  Block  1 

7775 

0002  Two  records  on  this  block 

7776  Beginning  of  record  flag 

0005  This  record  is  five  words  long,  including  key  and  flag 

1303  Sort  key  "c2"  in  sort  order  code 

0261  "2a"  in  ma^ietic  tape  code 

6263  "be"  in  magnetic  tape  code 

7776  Beginning  of  second  record  flag 

0005 

1504 

0361 

6263 

7773  End  of  block  flag 

Infoiaation  Block  2 

7775 

0001 

7776 
0005 
1302 
0161 
6263 

7773 


Old  of  block  flag 
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Trailer  Record 


7771 

0000 

7773 

0000 

0002 

0000 

0003 

0000 

0000 


Low  order 
Hle^  order 
Low  order 
Middle  order 
High  order 


3  decimal  digits 
3  decimal  digits 
3  decimal  digits 
3  decimal  digits 
3  decimal  digits 


of  block  count  given  in  octal 
of  block  co\mt  given  In  octal 
of  record  count  given  in  octal 
of  record  count  given  In  octal 
of  record  count  given  in  octal 


The  beglnxilng  of  Infomation  record  code  7776  may  be  changed  to  777^ 
by  sort  3X  If  the  record  is  In  doubt,  nie  value  7774  Is  used  as  a 
tape  as  well  as  the  aomed  record  tape. 
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AEqpeadlz  I 
Sort  3X  Halt  Table 


P 


A  Reason  and  Corrective  Action 


0134 

1152 

0l4l 

1154 

9426  n/2 

0701  0001 
0711  0003 
0762  abed 


1036  xxxx 


Error  tape  2  rewound  on  162,  I63,  or  l64  tape  system. 

List  tape  number  2  axid  take  corrective  action  on  sorted 
file. 

Error  tape  4  rewound  on  l62,  I63,  or  l64  tape  system. 

List  tape  number  k  and  take  corrective  action  on  sorted 
file. 

Source  Input  record  is  less  than  I6  characters. 

The  contents  of  A  gives  one  half  of  the  number  of  charac¬ 
ters  read  In  the  Input  record.  If  this  record  Is  legal, 
run  to  accept.  To  delete  the  record  fren  the  sort,  set 
A  to  4000  or  greater  and  run.  This  check  is  included  to 
catch  possible  noise  records  fren  the  Input  change  loca¬ 
tion  to  07Cfl  \diere  N  is  one  half  the  size  of  the 
shortest  expected  record  and  start  at  P  »  o430  to  accept 
the  record  ^Ich  caused  the  halt  prior  to  correcting  the 
program. 

Sort  3X  coapleted.  Output  on  tape  number  1. 

To  rewind  error  listing  tape,  see  step  l.e.9  of  operating 
procedure. 

Sort  3X  caqpleted.  Output  on  tape  number  3« 

To  rewind  error  listing  tape,  see  step  1.3«9>of  operating 
procedure. 

This  is  optional  stop  7701  which  occurs  between  merge  passes. 
For  160,  to  eliminate  this  stop  change  location  0762  to 
0300.  Start  at  P  »  0761. 

The  digits  In  the  A  register  indicate  the  ijQUt  tapes 
as  a,  b,  and  the  output  tape  as  c,  d  which  were  used  In 
the  last  merge  pass.  This  stop  may  be  used  as  a  rerun 
point  In  a  long  sort.  Remove  tapes  a  and  b  and  replace 
with  scratch  tapes.  To  continue  operation,  do  not 
change  the  contents  of  A,  and  run. 

For  the  I60-A,  to  eliminate  this  stop,  return  optional 
stop  switch  1  to  the  neutral  position. 

Input  tape  A  header  halt. 

Checks  on  the  header  of  the  Intermediate  input  taw 
header  foimat  failed  for  the  following  reasons:  (l) 
Uhrecovered  parity  error  In  reading  the  input  header. 

(2)  Account  nwiber  on  the  header  did  not  cospare  with 
the  Intenud  wcount  number.  (3)  Fo  header  record  on 
the  tape. 

Replace  tape  A  as  Indicated  by  octal  digit  Aaoaoc  In  loca¬ 
tion  0037*  Nsnoal  rewind  load  11  tapes.  Start  with 
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1067 


1077 


1104 

l6ll 

1621 

1700 

2004 


P  »  0761.  Program  will  stop  with  P  =  0762  if  optional 
atop  1  is  on.  The  program  will  atop  with  P  «  IO36. 

Run^  program  will  stop  with  P  «  IO67.  Run. 

This  recovery  procedure  assumes  that  the  scratch  tape 
was  bad  and  performs  the  previous  merge  pass.  The  two 
stops  at  1036  and  IO67  will  be  caused  by  account  number 
errors  ^Idi  Should  be  Ignored, 
xxxx  Input  tape  B  header  halt. 

Checks  on  the  header  of  the  intermediate  input  tape 
header  format  failed  for  same  reasons  as  IO36  halt. 

Replace  tape  B  as  indicated  by  octal  digit  xBxx  in  loca- 
0037*  Follow  rest  of  the  recovery  procedure  given  for 
the  1036  halt. 

xasx  Key  size  specified  on  Intermediate  tape  A  and  B  do  not  eigree. 

If  this  stop  occurs  during  a  normal  sort,  manxial  rewind 
load  all  tapes  and  start  with  P  =  0761.  Program  will 
stop  with  P  B  0762  if  optional  stop  1  is  on.  The  pro¬ 
gram  will  stop  with  P  B  1036.  Run,  pxmgrem  will  stop 
with  P  =  1067.  Run. 

If  this  stop  occurs  dwlng  the  resuqstlon  of  an  inter¬ 
rupted  sort,  obtain  the  correct  pair  of  input  tapes  and 
restart  the  resumption  procedure.  The  tapes  presently 
on  drives  1  and  2  are  not  the  correct  pair, 
xxxx  Key  size  specified  on  Intermediate  tapes  and  in  the  memory 
of  computer  do  not  agree. 

This  stop  should  occur  during  the  resunptlon  of  an 
Intempted  sort.  Run  to  get  correct  key  size  in  memory 
from  tape.  This  stop  should  not  occur  otherwise. 

1611  Intermediate  output  tape  C  at  physical  end  of  tape. 

Place  longer  scratch  tape  on  unit  C  indicated  by  octal 
digit  xxCx  in  location  0037*  Manual  rewind  load  all 
tapes.  Start  with  P  =  0777- 

X3CXX  Attempt  to  write  merge  output  on  error  tape  during  third 
phase,  or  output  section  of  sort. 

TUs  error  may  occur  as  a  result  of  a  recovery  procedure. 
Manual  rewind. load  all  tapes.  Start  with  P  b  0777« 

1700  Intermediate  output  tape  D  at  physical  end  of  tape. 

Place  longer  scratch  tape  on  unit  D  indicated  by  octal 
digit  xxrd)  in  location  0037.  Manual  rewind  load  all 
tapes.  Start  with  P  =  0777- 
xxxx  Intermediate  tape  A  recoird  count  error. 

Rumber  of  records  moved  from  A  input  area  does  not  com¬ 
pare  with  the  nionber  indicated  on  the  input  tape  for  this 
block,  xxxx  B  number  of  records  in  the  block  minus  the 
number  of  records  moved  out. 

nils  stop  usually  is  an  indication  of  machine  trouble, 
however  one  attempt  may  be  made  to  get  around  the  error 
by  manual  rewind  load  all  tapes  and  start  with  P  «  0777 • 
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2103 

xxxx 

Intermediate  tape  A  file  accounting  error. 

Number  of  records  and  blocks  processed  from  intermediate 
tape  A  does  not  check  with  the  Tape  A  trailer  account 
records. 

Manmlly  rewind  load  all  tapes  and  start  with  P  »  0777* 

2137 

xxxx 

Format  error. 

The  intermediate  record  read  in  from  tape  A  does  not 
conform  to  the  format  req[ulred  for  sort  3X. 

Manual  rewind  load  all  tapes.  Start  with  P  »  0777- 

2163 

xxxx 

Intermediate  tape  B  record  count  error. 

See  2004  stop  for  cause  and  action. 

2262 

xxxx 

Intermediate  tape  B  file  euscountlng  error. 

See  2103  stop  for  cause  and  action. 

2316 

xxxx 

Format  error. 

The  intermediate  record  fed  in  from  tape  B  does  not 
conform  to  the  format  required  for  sort  3^. 

Manual  rewind  load  all  tapes.  Start  with  P  =  0777* 

2337 

xxxx 

2352 

xxxx 

2363 

xxxx 

2402 

xxxx 

2606 

30C3CX 

2611 

3C3C3C3C 

All  above  stqps  may  occur  only  during  the  first  or  input 
pass  and  have  to  do  with  internal  format  checks 

Manual  rewind  load  all  tapes.  Start  with  P  »  0000. 

2764 

xxxx 

Intermediate  pass  output  tape  is  at  physical  end  of  tape 

during  Input  pass. 

If  contents  of  003I  =  0001,  output  Is  tape  D.  If  con¬ 
tents  of  0031  »  0000,  output  is  tape  C.  Place  a  longer 
scratch  tape  on  output  tape  c  or  d  as  indicated  by 
the  contents  of  location  0037  ■  xxCD.  Manual  rewind 
load  all  tapes.  Start  P  0000. 

3007  xxxx  Internal  fonnst  error  during  output  pass. 

Manuel,  rewind  load  all  tapes.  S^art  P  =  0770. 

3050  OOifO  Physical  end  of  tape  noznal  output  tape  C  during  output  pass 

Place  longer  tape  on  output  tape  C  as  indicated  by  the 
contents  of  location  0037  =  xxCx.  Manual  rewind  load 
all  tapes.  Start  P  =  0770. 

3076  0040  Fhyslced  end  of  tape,  error  output  tape  D  dturlng  output  pass 

Place  longer  tape  on  output  tape  D  as  indicated  by 
contents  of  location  0037  ■  xxxD.  Manual  rewind  load 
all  tapes.  Start  P  »  0770. 

:aacx  Halt  before  re-read  of  bad  Ij^t  record.  A  contains  the 
address  of  the  location  in  Sort  3X  idiere  re-read  of  the 
Izqput  record  will  start.  This  stop  ad.ways  follows  a  3316 
stop  in  which  the  decision  is  to  reread  the  input  tape. 

Bun  to  continue. 


3312 


8  TebrtAry  1963 


U-125 


TM-(L)-993 


3316  7777  Fonat  error  on  reading  intemedlate  Input  tape. 

The  block  read  In  froa  the  intermediate  tape  does  not 
conform  to  the  format  required  by  sort  3^.  IMa  stop 
Is  caused  by  either  a  noise  record  left  on  the  tape  In 
passing  a  bad  spot,  or  by  a  malfunction  of  the  tape  syctem. 

Recoamended  recovery  procedwe  Iss 

1)  Be-read  the  bad  record.  Move  run-step  switch  to  neutral 
and  then  to  run.  Computer  will  arrive  at  3312  stop. 

Run  again  to  reread  the  bad  tape.  If  the  331^  stop 
occurs  again,  it  Is  probably  a  noise  record,  so  take 
step  2. 

2)  Eliminate  the  record  from  the  operation.  Turn  on  paper 
tape  punch.  Clear  A  register  and  run.  The  bad  record 
will  be  punched  out  on  paper  tape  in  the  magnetic 
tape  code.  Feed  out  the  paper  tape  and  keep  the  bad  re¬ 
cord  for  possible  diagnostics  by  the  maintenance  repre¬ 
sentative. 

3)  If  this  stop  persists  on  alternate  passes,  it  Is  possible 
that  one  of  the  scratch  tapes  has  a  bad  sorea  on  it.  Note 
the  tape  unit  which  Is  used  during  the  tape  re-read  pro¬ 
cess,  set  (^tlonal  stqp  1  and  replace  the  tape  at  the 
next  between  merge  stop.  Caution.  Replace  the  bad  tape 
at  the  between  merge  stop  lanedlately  following  the  3316 
stop  and  recovery  procedure. 

4)  If  a  2103  or  2262  stop  occurs  after  the  3316  stop,  the 
record  reraopd  froa  the  sort  is  one  of  the  records  in 
the  file.  H  Is  reccmmended  that  the  sort  be  performed 
again. 

Error  tape  rewound  on  1607  or  l6l^  system. 

List  error  tape  and  take  corrective  action  on  sorted 
file. 


3720 
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II. 

IDEOTIFICATION 

Title:  Proper  Fraction  for  Calculating  Percentages  -  Ident.  11.00 
Programmer:  L.  Goodreau^  May  1961 

PURPOSE 

Division  of  2E  where  x  Is  assumed  to  be<  y.  The  answer  will  be  in  the  form 

y 

.xxxx,  adjusted  by  rotindlng,  in  true  binary. 

USAGE 

1.  Operational  Procedure:  Program  tape  can  be  loaded  anywhere  in  memory. 

2 .  Arguments 

a.  Dividend  in  location  ,71 

b.  Divisor  in  locatioiii  70 

c.  Exit  to  main  program  in  77 

d.  Result  in  location  73 

1)  If  the  divisor  s  0,  result  will  be  0. 

2)  If  X  <  y,  the  result  will  be  in  the  form  .xxxx,  rounded. 

3)  Space  required:  1962^0  locations,  including  locations  JO  -  77. 

METHOD 

D  =  dividend  which  is  ^ 
d  =  divisor  which  is  ^  ^^^10 
D  BCK  X  lo3 
d  BCK 

d  BCK  X  10^ 
d  BCK  X  10^ 


8  February  1963 


4-127 


TM-(L)-993 


II. 


IDENTIFICATION 

Title:  Single  Precision  Divide  -  Ident.  11.01 

Progrsmmer:  Sanford  Elkin,  February  1961 

PURPOSE 

This  subroutine  will  divide  a  positive  23-bit  fraction  by  a  positive  11-bit 

fraction,  giving  a  rounded  11-bit  fractional  quotient. 

USAGE 

1.  Operational  Procedure 

The  dividend  (a  and  b)  must  be  placed  in  locations  60  and  61  respectively, 
and  the  divisor  (x)  in  62.  The  contents  of  a  must  be  less  than  the 
contents  of  x,  and  both  must  be  positive,  b  contains  12  low  order 
magnitude  bits,  which  may  be  all  zeroes.  The  routine  is  entered  at  the 
symbolic  address  DVDSBR,  and  the  return  address  must  be  in  cell  7.  The 
quotient  (y)  will  be  in  cell  63. 

3.  Space  Required:  =  33g  locations  7  and  60-63. 

11.  Timing:  2.0  milliseconds 

12.  Cautions  to  User:  The  dividend  is  des|^oyed  by  the  subroutine.  If  the 

true  quotient  equals  or  exceeds  1-2  ,  the  octal  value  4000  will  be 

in  cell  63. 

13.  Accuracy:  1  bits,  with  answer  being  rounded. 

14.  Equipment  Configuration:  Minimum  SWAP  160  Computer. 

MATHEMATICAL  METHOD 


Repeated  subtractions  are  used. 
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II. 


IDENTIFICATION 

Title:  9-bit  Quick  Multiply  -  Ident.  11.02 

Programmer:  Sandord  Elkin,  February  1961 

PURPOSE 

This  subroutine  will  multiply  two  signed  11-bit  numbers  together  in  about 
600  microseconds,  giving  a  signed  answer  accurate  to  approximately  10  bits. 

USAGE 

1.  Operational  Procedure 

The  two  numbers  and  their  product  are  interpreted  as  signed  fractions  with 
magnitude  less  than  unity.  The  multiplicand  must  be  in  cell  10  and  the 
multiplier  in  cell  11.  Cells  70-72  are  used  for  temporary  storage,  and 
the  product  will  be  placed  in  the  A  register.  The  routine  is  entered 
at  the  symbolic  address  MPY9B,  and  cell  2  must  contain  the  return  address. 

3.  Space  Required:  181,,,  or  265o  locations,  plus  locations  10,  11,  and 
70-72.  ® 

11.  Timing:  Average  -  595  microseconds,  maximum  -  660  microseconds 

13.  Accuracy;  Average  -1x2  worst  case  -3x2^^ 

14.  Equipment  configuration:  Minimum  SWAP  160  Computer 
MATHEMATICAL  METHOD 

2  is  added  to  the  absolute  value  of  each  factor,  and  the  two  low-order 
bits  of  each  are  truncated.  If  either  resulting  number  is  0  or  1,  0  or  the 
other  factor  becomes  the  answer.  Each  of  the  three  octal  digits  of  the  re¬ 
sultant  multiplier  is  examined,  and  the  partial  product  of  each  with  the 
resultant  multiplicand  is  ob^gined.  The  bits  in  each  partial  product  which 
are  less  significant  than  2^^  are  truncated,  and  the  sum  of  the  partial 
products  is  truncated  to  2  .  The  sign  of  the  product  is  then  obtained, 

and  the  answer  is  placed  in  the  A  register. 
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II. 


IDENTIFICATION 

Title:  Integer  Divide  -  Ident.  11.03 

Progrannner:  Sandord  Elkin,  March  1961 

PURPOSE 

This  subroutine  will  divide  a  positive  23-bit  integer  by  a  positive  11-bit 
integer,  giving  a  12-bit  quotient  with  an  11-bit  remainder. 

USAGE 

1.  Operational  Procedure 

The  23  bit  integer  must  be  placed  in  a  (70)  and  b  (71),  the, divisor  in 
X  (72),  and  the  return  address  in  exit  (7).  x  must  be  greater  than  a 
(a  being  the  more  significant  half).  The  routine  must  be  entered  at 
DVDINT.  The  quotient  will  be  in  y  (73)  and  the  remainder  in  a  (70). 

3.  Space  Required:  ■  26g  locations. 

4.  Temporary  Storage:  Octal  locations  7  and  70-74. 

11.  Timing:  2.0  milliseconds. 

14.  Equipment  Configuration:  Minimum  SWAP  160  computer 
MATHEMATICAL  METHOD 


Repeated  subtraction  are  used. 
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II. 

IDENTIFICATION 

Title:  Fractional  Arithmetic  -  22  bit  -  Ident.  11.04 

Programmer:  S.  Palais  and  J.  Seewerker,  July  1961 

PURPOSE 

This  is  a  relocatable  package,  designed  to  add,  subtract,  multiply  or  divide 
22-bit  binary  fractions  (positive  or  negative). 

USAGE 

1.  Operational  Procedure 
a.  Calling  Sequence 


The  desired  subroutine  may 
as  in  the  example  below. 

be  entered  by  either 

a  JPI  or  a  JFI 

Subroutine 

Location 

Address 

ADD 

0002 

105 

SUBTRACT 

0003 

100 

MULTIPLY 

0004 

220 

DIVIDE 

0005 

401 

RETURN  ADDRESS 

0007 

— 

Examples : 

LDF  03  LDF  04 

STD  07  STD  07 

JPI  (02,  03,  04  or  05)  JFI  01 

(RETURN  ADDRESS)  (SUBROUTINE  ADDRESS) 

(RETURN  ADDRESS) 

The  augend,  multiplicand,  minuend  or  dividend  is  placed  in  cells  70 
and  71  and  the  addend,  subtrahend,  multiplier  or  divisor  in  cells 
72  and  73.  The  result  appears  in  70  and  71,  with  the  contents  of 
72  and  73  unchanged.  Thus,  a  sequence  of  operations  can  be  per¬ 
formed,  changing  only  the  contents  of  72  and  73.  An  overflow  in 
addition  or  subtraction  is  indicated  by  a  1  in  cell  74. 

b.  Operating  Instructions 

If  the  22-bit  Fractional  Arithmetic  non-relocatable  program  tape  is 
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loaded  at  00,  It  may  be  run  as  is.  Since  the  executable  part  of  the 
routine  can  be  relocated  anywhere  above  100  one  can  load  the  reloca¬ 
table  tape  anywhere  and  then  add  the  new  load  address  minus  100  to 
the  entrance  addresses  given  above  and  enter  the  resulting  sums  in 
registers  0002  thru  0005.  This  is  the  only  change  necessary  to 
relocate  the  program. 

3.  Space  Required 

a.  Low  Core 

Besides  locations  0002  thru  0005  and  0007  specified  above,  cells 
70  thru  77  are  used  as  temporary  storage. 

b.  High  Core 

The  executable  subroutines  start  at  location  100  and  run  to  location 
573.  The  following  is  a  breakdown  for  the  various  subroutines: 


Subroutines 

Entrance 

Address 

Space  Required 
Octal  Decimal 

22  ADD 

0105 

113 

75 

22  SUB 

0100 

120 

80 

22  MULT 

0220 

161 

113 

22  DIV 

0401 

173 

123 

with  a  total  length  of  316jq  =  ^74g. 

8.  Error  Return 

If  the  divisor  is  less  than  or  equal  to  the  dividend,  an  error  return 
is  signaled  by  a  non-zero  accumulator  upon  return  from  the  subroutine 
(a  normal  return  from  a  subroutine  will  have  a  zero  in  the  accumulator). 
The  input  to  registers  70  thru  73  is  restored  and  if  the  dividend  equals 
the  divisor,  location  74  will  contain  4000. 

10.  Input  and  Output  Format 

a.  Positive  22-blt  Fractions 

The  most  significant  11  bits  of  the  fraction  are  placed  in  the  "high 
order"  word  and  the  least  significant  11  bits  in  the  "low  order" 
word  with  the  left-most  bit  of  both  words  being  zero;  e.g. ,  in  the 
division  routine,  cells  70  and  71  would  contain  the  high  and  low 
order  parts  of  the  dividend  respectively  and  cells  72  and  73  the 
high  and  low  order  parts  of  the  divisor. 
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b.  Negative  Fractions 

The  add  and  subtract  routines  do  24  bit  complementary  arithmetic. 
Thus,  a  negative  22  bit  fraction  is  broken  up  into  the  high  and  low 
order  parts  as  above  and  then  one's  complement  of  all  24  bits  is 
taken  and  entered  into  the  high  and  low  order  words  (which  the 
computer  will  then  regard  as  negative  since  the  left-most  bit  of  each 
word  will  contain  a  one  bit.)  Thus,  if  the  result  appearing  in  70 
and  71  is  negative,  the  magnitude  of  the  number  may  be  found  by 
complementing  both  the  high  and  low  order  words.  The  high  and  low 
order  parts  of  an  input  number  must  agree  in  sign,  otherwise  an 
incorrect  answer  will  be  given. 

11.  Timing 

Subroutine 


22  ADD 
22  SUB 
22  MULT 
22  DIV 

12.  Cautions 

Since  cell  74  (the  overflow  indicator)  is  set  equal  to  zero  at  the 
beginning  of  each  addition,  subtraction  or  division,  the  user  should 
check  for  overflow  at  the  end  of  each  of  these  operations  if  he  intends 
to  do  a  sequence  of  computations.  In  using  any  other  subroutines 
related  to  22-blt  arithmetic,  one  should  be  careful  to  distinguish 
whether  they  are  applicable  to  22-bit  fractional  arithmetic. 

13.  Accuracy 

All  subroutines  result  in  22-bit  positive  fractions  or  24-blt  one's 
complement  negative  fractions.  In  multiplication,  the  product  is 
rounded  to  22-bits.  In  division,  the  quotient  is  truncated  to  22-bits. 

14.  Equipment  Configuration:  Minimum  SWAP  160  or  160-A  Computer 


Execution  Time 

225  microseconds 
300  microseconds 
5-10  milliseconds 
10  mlliseconds 
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II. 


IDENTIFICATION 

Title:  Nine-Bit  Quick  Sine  -  Ident  11,05 

Programmer:  S.  Elkin,  August  1961,  Control  Data  Corporation 

PURPOSE 

This  subroutine  will  obtain  the  sine  of  any  angle  whose  magnitude  is  less  than 
90  ,  in  about  3  milliseconds,  with  the  answer  accurate  to  about  9  bits. 

USAGE: 

1.  Operational  Procedure 

The  angle  x  must  be  put  in  the  A  register  before  entering  the  routine, 
and  the  answer  sin  x  will  be  put  in  the  A-register.  The  format  of  x  must 
be  that  of  a  signed  binary  fraction,  i.e,  4000g  <  x  r  3777g,  and  it  is^ 
interpreted  as  a  fraction  of  90  .  For  example,  x  ■  2000„  means  x  «  45  , 
and  X  =  4000g  means  x  si  -89.956  .  Sin  x  should  also  be  Interpreted  as  a 
signed  binary  fraction.  The  routine  is  entered  at  the  symbolic  address 
SINFX,  and  XTSIN  (location  3)  must  contain  the  return  address.  Finally, 
ADRMPY  (location  4)  must  contain  the  address  of  the  9-bit  Quick  Multiply. 

3.  Space  Required 

For  the  Sine  routine  alone,  38,_  =  46g  locations,  plus  location  3  for  the 
exit  address.  However,  the  9-Bit  Quick  Multiply  requires  “  265g 

locations  plus  5  locations  in  low  core. 

11.  Timing 

Approximately  2,85  ms  average,  3.1  ms  maximum. 

13.  Accuracy 

Average  error  from  0°  to  67.5°  is  less  than  .001,  from  67.5°  to  80°  is 
less  than  .002,  and  between  80°  and  90°  is  less  than  .004. 

14.  Equipment  Configuration:  Minimum  SWAP  160  or  160-A  computer. 

16.  Reference:  "Some  Basic  1604  Mathematical  Subroutines,"  (CDC  Publication  061). 


8  February  I963  U-I34  TM-(L)-993 

MATHEMAnCAL  METHOD 
The  Tchebychev  equation 

sin  ^  X  =  y.(C^  -  (C^  -  x^(C^))) 

is  used,  where  =  1.5703,  C2—  .6419,  .0715,  and  -1<  x  <  1. 

The  machine  implementation  of  the  equation  is 

sin  X  -  2x(3110g  -  x^(1222g  -  x^(Olllg))), 
where  x  is  a  binary  fraction  of  ?. 
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II. 

IDENTIFICATION 

Title:  Matrix  Inversion  -  Ident.  II. 06 
Progranmer:  D.  M.  Lytle,  September  I962,  CODA 

PURPOSE 

This  subroutine  is  written  in  I60  FORTRAN  (160  FORTRAN-A)  for  finding  the 
inverse  of  a  square  matrix. 

USAGE 

1.  Calling  Sequence:  The  following  two  statements  must  be  in  the  main 
program. 

DIMENSION  A(n,n),L(n),M(n) 

N  s  n 

where  n  m  size  of  square  matrix. 

The  Inverse  matrix  of  A  is  stored  back  into  A.  Communication  between 
the  subroutine  and  main  program  is  accomplished  by  the  N0N  I^CAL 
statement  in  the  subroutine. 

3.  Space  Requirement:  The  subroutine  requires  7U7  0  (487^^^)  locations. 

A  17x17  matrix  could  be  inverted  in  the  160  and  33*33  for  I60-A. 

11 .  Timing: 

Size 

3*3  3  seconds 

10x10  53  seconds 

20x20  minutes 

30x30  20 (estimated  minutes) 

16.  Reference:  Lanczoc,  C.,  Applied  Analysis,  Prentice  Hall,  Inc.,  19^6, 

118-122. 

METHOD 


The  Gaussian  Elimination  Method  is  used  for  the  inversion 


subroutine 
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c  PRaniAH  KOR  'jiik  itJVEnfii:  of  a  nxn  fwtrix 

256  FoiU'wr(  3K2!).';  ) 

_ DTKEir.'OION  A(3,jiJ,L{5),M(^)<— -  ' 

BtmKoU'nm!  iwi:i< 

NONT.OCAL  A,L,M,N 

C  SEAJ<C)I  I'OR  IJVUCIFST  EUiJCNT 
]>=1.0 
D0(30  K=-.1jN 
L(K)==K 
M(K)-K 
BI(;A=A(K,K) 
r>020  I=K,N 
D020  J=K,N 

1F(ARSF(DIGA  )-ADSF(A(1,  J)  )  1(),20,?0 

10  DIGA=A(I,J) 

L(K)=I 
M(K)=J 
20  continup: 

J=L(K) 

IF(L(K).K)  55,35,25 
25  DO3O  I.'=1,N 
nOLD«-A(K,l) 

A(K,I)=A(J,I) 

30  A(J,I)«1I0IJ) 

C  INTERCHANGE  COLW-INS 

55  i=m(k) 

IF(M(K)-K)  *(5,45,37 
37  D0'(0  J=1,N 
H0IJ>=-A(J,K) 

a(j,kM(J,i) 

40  A(J,I)=HOI.D 

45  D055  1=1, N 

46  IF(I-K)50,55,50 

50  A(I,K)=A(I,K)/(-A(K,K)) 

55  CONTINUE 

C  REDUCE  MATRIX 
DO65  1=1, N 
IX)65  J=1,N 

56  IF{I-K)  57,65,57 

57  IF(J-K)  60,65,60 

60  A(I,J)=A(I,K)+A(K,J)+A(I,J) 

65  CONTINUE 
D075  J=1,N 
6Q  IF(J-K)70,75,Y0 
70  A(K,  J)=-A(K,J)/A(K,K) 

75  COmiNUE 
D=D^A(K,KJ 
A(K,KH.0/A(K,K) 

80  CONTINUE 

FINAL  ROW  AND  COLUMN  INTTPRCHANGK 


must  be  defined  bv 
main  program 


C 
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K=M 

TOO  K=(K-1 ) 

IF(K)  150,150,103 
103  I=L(K) 

IF(I-K)  120,120,105 
105  DOllO  J=1,N 
nOLD=A(J,K) 
A(J,K)=-A(J,I) 

110  A(J,I)=H0LD 
120  J=M(K) 

D'(J-K)  100,100,125 
125  DOI3O  1=1, N 
HOLI>=A(K,I) 
A(K,I)=-A(J,I) 

130  A(J,I)--.H0LD 
GO  TO  100 
150  CONTINUE 
REIURN 
END 
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II, 

IDE31TIFICATI0N 


Title:  Program  Structure  -  Ident.  All. 07 

Programmer:  Ellaabeth  Phillips,  October  I962,  MSU  -  Computer  Laboratory 
PURPOSE 

This  program  determines  all  those  permutations  if  which  leave  a  structure  (S,R) 
invariant,  and  all  those  permutations  /^which  leave  (S,R)  self-dual. 


A  structure  (S,R)  is  a  finite  set  S  (which  may  as  well  be  the  first  n  positive 
integer)  together  with  a  relation  R  on  the  set,  which  is  symmetric  and  reflexive, 
though  not  necessarily  transitive.  The  permutation  TT  leaves  (S,R)  invariant 
if  aRb  if  and  only  if  '7r(a)Rfli(b);  ^leaves  (S,R)  self-dual  if  aRb  if  and  only 
if  Pia)  ^(b),  in  both  cases  for  all  a,b  in  S  except  for  a  -  b. 


A  matrix  C(S,R)  is  associated  with  (S,R}  where  C(S,R)  (a  )  and  a  si  if 

i  J  i  J 

Then  17  leaves  (S,R)  invariant  if  and  only  if 


IRJj  a^^j  -  0  if  i  s  j. 

a  ■  a  ,  .  ,  and  Cleaves  (S,R)  self-di»l  if  and  only  if  a 
IJ  ml)w(J)  IJ 


B  a. 


of  all  i  and  J  in  S  except  i  s  j .  Here  a^^  i )  /( j Boolean  Complement . 


This  program  accepts  a  matrix  C(S,R)  and  produces  all  permutations  which  leave 
(S,R}  invariant  and  all  those  (if  there  are  any)  which  leave  (S,R)  self-dual. 


USAGE 


1 .  Operation  Procedure : 

Master  clear,  clear  both  memory  banks.  Load  Fortran  Interpreter 
(AC1.00-3D)  according  to  operating  instructions  for  160  Fortran-A.  Input 
object  code.  At  stop,  position  data  tape  in  reader  and  run. 

7.  Error  stops:  Those  listed  for  Fortran. 

10.  Input  and  Output  Formats: 

(1)  Carriage  return.  A  two  digit  integer  equal  to  the  order  of  the 
matrix  to  be  permuted. 

(li)  Carriage  return.  A  two  digit  Integer,  either  "00",  or  ”01."  Use 

"01"  if  intermediate  output  is  desired  after  every  1000th  permuta¬ 
tion  for  stopping  cmd  restarting  purposes.  For  cases  of  n  8, 
this  would  not  be  necessary. 
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a.  Input  (cont.) 

(ill)  Carriage  return.  A  one  digit  Integer  for  each  element  of  the 
matrix.  Xhese  are  read  In  hy  columns,  each  element  preceded 
by  a  carriage  return.  Ubere  will  be  n^  of  these. 

(iv)  Carriage  return.  A  two  digit  Integer  for  each  member  of  the 
first  permutation  to  be  tried.  Sach  Integer  Is  preceded  by 
a  carriage  return.  !rhere  will  be  n  of  these. 

These  will  be  of  the  form  n. ,  n.,  n.,  ....  ,  n  \ihlch  means 

X  £  ^  ^ 

the  pennutatlon  1  2  3  q 

“l  “2  “3  “q  • 

(v)  If  (ll)  Is  "00",  this  cooipletes  the  data.  If  (ll)  Is  "01", 
additional  Infonnatlon  needs  to  be  lnput>-to  allow  for  starting 
In  the  middle  of  the  run.  Ibis  consists  of  a  carriage  return  and 
a  two  digit  Integer  eqpal  to  "00"  only  If  It  Is  desired  to  start 
at  the  beginning  of  the  problem;  "01",  to  stcurt  In  the  middle. 
Then  for  the  Initial  Input,  2(n>l)  "00" 's  are  punched,  each 

"00"  being  preceded  by  a  carriage  return.  On  successive  runs, 
these  values  will  have  been  output  (thus  telling  you  how  far 
the  problem  got  and  from  ^ere  to  continue  next). 

b.  Output 

The  headings  "Invariant  Fensutatlon"  or  Self -Dual  Fremutatlon" 
are  punched  out  followed  by  the  order  of  the  matrix  (n)  and 
the  n  conqionents  to  be  Interpreted  as  follows: 

n  :  03 

Xj^  :  03 

*2  :  01 

X3  :  02 

this  means  the  matrix  Is  of  order  3r  the  penmitatlon  Is  03  01, 

01  02,  02  03,  or  123 

312. 

If  (11)  on  the  Input  tape  was  "01"  then  after  every  lOOOth 
penmitatlon  (for  ns8,  this  would  be  40  times)  there  will  be 
2(n-l)  two  digit  Integers  output  (leading  zeroes  are  supressed). 

IMs  Is  the  Information  that  Is  put  back  In  In  step  (v)  above,  pre¬ 
ceded  by  "01",  If  restcurtlng  at  this  point  Is  desired. 
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11.  Timing:  For  0^5,  the  time  Is  2.5  minutes;  for  18.75  minutes; 
for  n*8,  approximately  25  hours  (thus  the  need  for  restart  procedtires). 

14.  Equipment  Configuration:  minimum  SKAP  16O-A  conqputer. 

15.  SWAP  Routines  Used;  260  Fortran  A. 

16.  References:  H.  F.  Trotter,  "Algorithm  115>  PERM",  Ccnm.  ACM, 

Axigust,  1962,  pp. 43^-5. 

METHOD  OR  AlflORTTHM: 

The  method  used  to  obtain  the  n!  pensutatlons  of  the  set  of  n  Integers  Is 
one  developed  by  H.  F.  Trotter.  It  changes  the  order  of  the  given  set 
once  each  loop  around,  so  that  after  n.'  loops,  all  n!  permutations  have 
been  generated.  For  each  pemitatlon  generated,  the  original  matrix, 

M  (idilch  Is  Input),  Is  pennuted,  first  by  rows,  then  columns.  This 
nev  matrix  Is  then  compared  vlth  the  original  matrix,  element  by  ele¬ 
ment.  If  the  new  matrix  Is  exactly  like  the  original,  the  output  repre¬ 
sents  a  permutation  tMch  leaves  the  matrix  Invariant.  If  the  nev 
matrix  Is  the  complement  of  the  orlginsl  excluding  diagonal  elements, 
the  output  is  printed  out  as  self-dual.  In  coatparing  the  two  matrices, 
if  at  any  time  an  element  Is  discovered  which  contradicts  either  of 
these  restrictions,  the  comparison  is  abandoned  and  a  nev  permutation 
is  generated. 


) 
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c 

OlUo 

OlUl 

0100 

0101 

0102 

0103 

OlOU 

0105 

0106 

0107 

0108 

0109 

.0110 

0111 

0031 

0032 

c 

0004 

0005 

0006 

0007 

0008 

0009 

0010 

0011 

0012 

0013 

0014 

0015 

0016 

0017 

0018 

0019 

0020 

0021 

0022 

0023 

0024 

0025 

0026 

0027 

0028 

0033 

0034 

0035 

0036 


PROGRAM  STRUCTURE 

format  (21hlnv£urlant;  permutation) 

format  (211iaelf;dual;pennutatlon) 

format  (12) 

format  (11) 

format  (/) 

“(12.12),  ap(12,12),  mpp(12,12) 

n2  E  2  'n 
n3  ••  n+1 


read  101,((M(1, J),l-l,n) 

read  100,  (K(l),l-n3,n2) 

do  110  l>l,n 

k(l)  =  1 

LFIRST  -  0 

If  (LSTOP)  31,4,31 


. J*l»d) 


read  100,  Iflrst,  (IS(I),  JS(l),l-2,n) 
kount  >‘0 


BEGIN  PERMUTE  N  NUMBERS 
nt  =  n 

If  (LFIRST)  10,6,10 
do  8  l>2,n 

la(l)  -  0 
Js(l)  -  1 
LFIRST  -  1 
m  0 

L  »  IS(NT)  +JS(NT) 

IS(NT)  =  L 
If  (L-NT)  15,13,15 
JS(NT)  -  -1 
go  to  18 
If  (L)  23,16,23 
JS(NT)  »  1 
M  1-  M^+1 
If  (NT-2)  21,21,19 
NT  -  NT-1 


go  to  11 
L  -  1 


LFIRST  -  0 
L  ■  L+Ml 
nl  =  n+L 
kt  =  K(N1) 

K(N1)  «  K(K1+1) 

K(N1+1)  -  KT 
If  (LSTOP)  33,29,33 
kount  ■  kount  +1 
If  (KOUNT-  1000)  29,35,29 
kount  mO 


punch  100,  (IS(I),  JS(I),  l-2,n) 
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punch  102 

C  BEGIN  PERMUTE  MATRIX 


0029 

do  116  l-l,n 

In  -  I+N 

0112 

nl  -  K(I) 

0113 

L  -  K(IN) 

0114 

do  115  J-  l,n 

0115 

«P(nl,J)  -  M(L,J) 

0U6 

continue 

0117 

do  123  i-l,n 

In  -  I+N 

0119 

nl  -  K(I) 

0120 

L  -  K(IN) 

0121 

do  122  J  -l,n 

0122 

n>PP(J,nl)  -  MP(J,L) 

0123 

continue 

C 

COMPARE  MATRICES  FOR  INVARIANCE+  SELF-DUAim 

0125 

do  128  l»l,n 

0126 

do  128  J=l,n 

0127 

if  (M(1,J)  -  MPP(1,J))  180,128,180 

0128 

continue 

punch  140 

go  to  129 

0180 

do  134  l=l,n 

do  134  J«'l,n 

0131 

If  (I-J)  132,133,132 

0132 

If  (M(1,J)  -  MPP(i,j))  134,170,134 

0133 

If  (M(i,J)  -  MPP(1,J))  170,134,170 

0134 

continue 

punch  l4l 

0129 

punch  100,  n,  (K(I),  l-n3,n2) 

0130 

punch  102 

0170 

If  (LFIRST)  4,144,4 

0144 

pause  0001 

go  to  104 

end 

end 
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Jl. 

IDENTIFICmON 

Title:  LINEAR  FROCBAM  I  (SIMPLBX  METHOD)  -  Ident  Jl.OO. 

Progranmer:  John  F.  Quinlan,  August  1963,  Control  Data  Corporation 

PURPOSE 

Ibis  prpgram  is  vrltten  in  iORIRAN  for  the  Control  Data  160  or  160-A  ccntputer. 
The  Sla^lex  Method  is  the  con^tational  technlgue  used  rnd  the  input  data 
must  Inply  a  first  feasible  solution.  Obis  condition  is  not  limiting  since 
any  LP  problems  can  be  arranged  to  meet  it  by  the  proper  manipulation  of 
input  parameters.  Exaaqples  of  the  manipulation  are  given  in  the  sample 
problem. 

USA(S: 

1.  Operational  Procedures 

Using  technique  for  FORTRAN,  the  first  set  of  restraints  and  minimizing 
coefficients  are  read  in.  After  pvmching  out  answer,  ccoqnxter  will 
stop  (A=1111).  The  next  set  of  coefficients  can  be  placed  in  reader 
and  run.  Conputer  will  then  repeat  -,  punch  answers,  and  stpp  (A«llll). 

3.  Space  Reqjalrementa 

The  size  of  the  LP  problems  handled  by  the  program  are  given  by  the 
equation 


2(M-»N)  +  (M+l)(N+l)  G 

where  0  =  245  for  16O  computer 

G  =  1117  for  160-A  counter 
G  *  (estimated  6  banks)  6237  for  16O-A  FORTRAN 
M  a  number  of  restraining  equations 
N  =  number  of  non-slack  variables 

Slack  variables  either  natural  or  artificial,  are  not  included  in 
assessing  N. 
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Sample  Problem  I 


Minimize 


Subject  to 

(1)  +  X2  -  £  -2 

(2)  -x^  -  x^  +  Xj  iC.  1 

Since  restraint  (1)  has  a  right  hand  side  less  than  zero,  multiply  It 
through  by  -1  giving 

(1)  -  X2  +  X3  i  2 

Since  the  relationship  is  now  one  of^^anothcr  non«slack  variable  x^ 

Is  Introduced  giving 

(1)  Xj  -  x^  +  X3  -  x^  *2 

Because  an  equality  exists,  it  is  necessary  to  associate  an  artificial 
alack  with  this  restraint.  Thus  the  inputs  will  be  taken  from  the 
following  system: 

Minimize 

10a  +  Xj^  +  x^  +  X3 

Subject  to 

(1)  aj  +  x^  -  x^  +  X3  -  x^  -  2 

(2)  Fj  -  *1  -  ^2  +  X3  -  1 


*  Xj  Is  placed  here  as  the  artificial  slack  Is  also  to  be  minimized. 
10  Is  arbitrarily  chosen,  100  would  do  Just  as  well. 
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S-iniplo  rrol'liMi  I  (i-nnt:tntiod) 


Wlierc  Is  an  artificial  slack  and 
is  a  natural  slack 

The  identifiers  on  output  will  be  as  follows: 


Variable  Identifier 


^2 


1 

2 

3 

4 

5 

6 


In  this  problem  M  ■  2,  N  ■  4 

The  input  and  output  for  this  problem  are  shown  below 

input  output 


0204/ 
lO.Oeo/" 
O.OeO/ 
l.OoO/  U 
l.OeO/ 
l.OcO/  I 

o.u.„;j 

i.Ca.o/— I 

-1.0c0/  I 

l.OeO/  > 
-1  .OeO/ 
2.00.1/  . 
-T.Oc Y  ' 

-l.CcO/ 

l.Ccr;/  I 

O.OpO/ 

1 .OoO/ 

•  ^ 


M,W 

z 


a  > 


L  z. ) 


.?OOCX)(X)Oe  01 
2 

.^'OOOOfXKV-  Ol 
.POOOOOCX)-  01 


NOTE: 

Coefficients 
for  a^  and 
arc  not  included 
here 


Execution  Time  —  9  seconds 
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Sample  Problem  II* 

Xn  thta  problem,  M  S,  N  •  4. 


Maximize 


Xi  +  2X2 


Subject  to 


(1)  -x^  +  3x2  10 

(2)  x^  4X2  *  6 

(3)  x^  -  X2  2 

(4)  Xj^  +  3x2  6 

(5)  2Xj^  +  X2  ->  4 


with  all 


Since  the  relationships  of  (4)  and  (5)  are  ^^another  non-slack 
must  be  introduced,  x^  and  x^,  giving 

(4)  -x^  -  3x2  -  Xg  -  -6 

(5)  -2xj^  -  X2  -  x^  -  -4 


Now  M  “  5  and  N  ■  4 


Minimize 


-2x 


2 


Subject  to 


(1)  y3  -  *1  +  3’'2  " 

(2)  +  x^  +  72  -  6 

(3)  y^  +  Xj^  -  X2  -  2 

(4)  yg  +  +  3x2  -  x^ 

(5)  yg  +  2x^  +  X2  -  x^ 


6 
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0 


variable 


*  Ref:  GARVIN,  W.W,  Introduction  to  Linear  Programming,  pg  45-46. 
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Sample  Problem  Il(contlnucd) 

where  x^,  x^,  x^,  are  natural  slacks 
Xg,  x^  are  artificial  slacks 
0  1  -  1.2,. ...9 

The  Identifiers  on  output  will  be  as  follows: 

Identifier 

1 
2 

3 

4 

5 

6 

7 

8 
9 


Variable 

^3 

^4 

^5 

^8 

^9 
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Sample  Problem  II  (continued) 


ijiput 


output 


0504/ 

O.OeO/ 

O.OeO/ 

O.Oc‘0/ 

O.OeO/ 

O.OeO/ 

-l.OeO/ 

-2.0e0/ 

O.OeO/ 

O.OeO/ 

-l.OcO/ 

J.OeO/ 

O.OeO/ 

O.OeO/ 

lO.OoO/ 

I.OcO/ 

l.OoO/ 

O.OeO/ 

O.OeO/ 

6.0e0/ 

I.Ot 0/ 

-l.OeO/ 

O.OeO/ 

O.OeO/ 

2.O0O/ 

l.OeO/ 

3.0eO/ 

-i;oeO/ 

O.OeO/ 

O.OeO/ 

2.0e0/ 

l.OoO/ 

0.  OeO/ 

-l.CeO/ 

4.0c0/ 


1 


M,N 


1 


(I) 


U) 


(3) 

(4) 

(5) 


0 

.Oooooooic  01 

9 

.<40000000c  01 

3 

.'lOOOOOOOe  01 

Y 

.  400000(X)i!  01 

6 

. 20000001 e  01 

-.999999990  01 


Execution  Time  —  12  Seconds 
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7.  There  are  no  EBROR  stops. 

9.  Input  Is  from  paper  tape  reader  and  output  is  from  the  paper  tape  punch. 

10.  Input  and  Output  Formats 

The  first  line  of  li:Q)Ut  contains  the  numbers  defining  M  and  N.  This 
is  folloved  by  the  cost  coefficients  for  the  functional,  one  element 
to  a  line.  The  coefficients  for  the  slacks  are  entered  first  folloved 
by  the  coefficients  for  the  non-slack  variables.  The  cost  coefficients 
for  the  slacks  axe  ordered  according  to  the  rov  position  of  the  unit  in 
the  unit  col\mm  vector  associated  with  that  slack.  The  cost  coefficients 
are  folloved  by  the  elements  of  the  row  vectors  describing  the  coefficients 
of  the  non-slack  variables.  These  are  ordered  by  vector  in  the  same 
order  as  the  cost  coefficients  for  these  variables. 

Within  eac6  row  vector  the  order  is  by  restraint  equation,  so  that  k 
within  a  vector  is  associated  with  restrtdnt  k.  The  row  vectors  asso¬ 
ciated  with  the  non-slack  variables  are  followed  by  the  column  vectors 
describing  the  rlj^t  hand  side.  All  elements  defining  the  r.h.s.  vector 
must  be  greater  than  or  eqjual  to  zero  and  all  row  vectors  axe  entered 
one  element  to  a  line. 

t  Thus,  for  a  program  with  M  restraints  and  N  non-slack  variables,  it 

is  required  that  M,  N,  cost  coefficients,  and  M  rov  vectors,  esush 

with  N  elements,  be  entered.  Artificial  slacks  are  handled  by  the 
pricing  out  technique,  that  Isy  by  associating  with  them  as  cost  coeffi¬ 
cients  a  positive  number  fdilch  is  large  relative  to  the  other  cost 
coefficients  so  that  the  artificial  slacks  will  be  forced  out  of  the 
basis. 

The  congnitatlon,  always  minimizes.  Therefore,  to  maximize  a  functional, 
multiply  the  original  functional  by  a  minus  one  diurlng  set-up. 

The  output  consists  of  an  identified  and  value  for  each  variable  in 
the  optimal  basic  soliitlon  and  the  optimal  value  of  the  functional. 

A  slack  is  identified  by  an  integer  from  1  thru  M  ^ere  the  integer 
indicated  the  restraint  associated  with  tluit  slack.  A  non-slack 
variable  is  identified  by  an  Integer  from  (M+l)  thru  (M-tR)  where  the 
Integer  is  associated'  with  the  ordering  of  the  inputs  pertaining  to 
the  variable.  Thus  the  ordering  of  the  cost  coefficients  for  each 
variable,  slack  and  non-slack,  detenulnes  the  identifier  for  that 
variable. 


) 
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0  MHK/’ji  nsir.\;  rjM'Ucx  mctiiod 

v;  KoPMATfPir’) 

?()  ) 

51  coiiTiinrr: 

IlK/iD  19,M,N 
HI  =  N  +  1 

Ml  ==  M  +  1 

L  =  M  +  H 

lA  =  Ml  'Ml 
/  J  =  lA  +  1 

KA  =  lA  +  L 

RKAD  20,  (D(I),  I  =J,KA) 

IB  =  M'Nl 

READ  20,  (D(I),  1=1, ID) 

I  =  ID  +1 

DO  29  J  =  I,  lA 

29  n(J)  =  0.0 

DO  2  I  =  1,L 

IX  =  KA  +  I 

2  D(IX)  =  I 

DO  25  I  =1,11 

IC  =(I-1 )'N1 

ID  =  lA  +  I 

DO  25  J  =  1,  HI 

DC  =  IC  +  J 

TEMP  =  D(IX)  '  D(1D) 

IE  =  ID  +J 

25  D(IE)  =  D(IE)  +  TE^^ 

DO  2fl  J=  1,N 
K  =  J  +  M  +  lA 
IE  =  IB  +  J 

2fl  D(IE)  =D(IE)  -D(K) 

18  'IEir=  0.0 

I.  =  0 

DO  5  J  •=1,H 
IE  =  IB  +J 

IE  (D(IE)  -  TEMP  )  3,5,'* 

U  I.  =  J 

m-I’  =  D(IE) 

3  COMTIHUE 

IF  (L)  10,10,5 

5  TEICP  =  .99999999E31 

K=o 

DO  6  1=  1,M 
IC  =(1-1  ).'  Ml 
ID  =  IC  +  L 
IF  (  n(TD)  )  6,6,8 
0  IX  =  1C  +  Ml 

TEMPI  =  D(IX)  /  D(ID) 

IF(  TtCl-Pl  -  T1M>  )  9,Ci,C 
9  W>IP  -  TEM'l 

K=  I 

6  COHTINUE 
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ir  (K)  10,10,11 
10  IX)  50  1= 

IX  =  KA  +  I 
J  =  U(IX) 

PUNCH  19,  J 
KB=(I-1)'N1  +N1 
PUNCH  20,D(K11) 

30  CONTIinHi: 

PUNCH  20,  D(IA) 

PAUSE  1111 
CO  TO  31 
n  IX  =  K+KA 
I  =  D(IX) 

J  =  M+L 
IX  =  J+KA 
lY  =  K  +  KA 
D(IY)  =  D(IX) 

D(IX)  =  I 
DO  12  1=1, Ml 
J  =(I-1  )'N1  +  L 
IX  =  I  +  lA 
D(IX)  =  D(J) 

12  D(J)=  0.0 

J  =  (K-1 )'N1  +  L 
D(J)  =  1.0 
DO  13  J  =1,N1 
JA=(K-1  )'Nl  +  J 
IX  =  lA  +  K 

13  D(JA)  =  D(JA)  /  D(IX) 

DO  14  1=1  ,M1 

IF(K  -  I  )  15,14,15 
15  DO  14  J=1,N1 

JA=(I-1  )'  N1  +  J 
JD-(K-1 )  'N1  +  J 
IX  =  lA  +  I 

D(JA)  «  D{JA)  -  (  D(JB)  •  D{IX)  ) 

14  CONTINUE 
GO  TO  10 
END 

END 
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Jl. 

lEEBTIFICATION 

Title:  Equation  Solver  •  Ident.  AJ  1.01 

Programmer:  (Lockwood,  Kessler  and  Bartlett,  Inc.)  September  1962 
PURPOSE 

This  program  will  solve  30  linear  equations  with  30  unknowns.  A  modified 
Gaussian  Elimination  Method  is  used.  The  program  has  the  ability  to  output 
the  derived  matrix  before  executing  the  back  solution  to  solve  for  the 
unknowns.  This  is  accomplished  by  letting  ike  be  01.  If  the  derived 
matrix  is  not  desired,  let  ike  be  02. 

The  program  outputs  the  final  matrix,  the  element  location,  and  the  value; 
l.e.,  Ag  s  6628. would  be  output  as  2  h  6628.44. 

The  value  of  the  unknowns  are  elements  A  where  i  -  l,2,->n. 

l,n-^l  '  ' 

LIMITATIONS 

The  elements  on  the  diagonal  must  not  be  zero. 

EQUIPMENT  AFFECTED 
CDC  16O-A,  Flexowriter. 

SOURCE  PROGRAM 
(See  following  page) 

INPUT  FORMAT 
CR 

SSNCR 

DDDDD.DDCR 

DDDDD.DDCR 

DDDDD.DD 

Vfhere  SS  is  the  value*  for  ike  either  01  or  02 
NN  is  number  of  unknowns 

DDDD.DD  is  the  element.  Elements  are  entered  by  rows. 
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Source  ?ro'’r":n 


C 

100 

101 

102 

25 

26 


1 

9 

19 
18 
17 

3 
8 
5- 

24 

23 

6 

7 

4 

20 

22 

21 

15 

12 

10 

U 

14 

15 

16 

27 


B^UATIOO  SOLVER 
for.\:2.t(2i2) 
forE:.^t(ra.2) 
for=:at(212jf3.2) 
dliiorjlon  5.(30,30) 
read  100,il'.e,n 
lf(n-50) 26,26, 27 
J-1 

na«n+l 
do  1  l>l,n 
do  1  KBl,na 
read  101,a(i,k) 
lonn 

a(J,l)*=<i(J,l)/a(j,J) 
If(i-J)17,17,l8 
lol-l 
£0  to  19 

ir(n-J)4,4,3 

k-J+1 

l«Rn 

a(k,l)ua(k,l)-a(4,l)'c(k,J) 
lf(i-J)23,23,24 
1=1-1 
£0  to  5 
i^(n-k)7,7,6 
k=k+l 
GO  to  8 
J-J+1 
£0  to  9 

£0  to  (21,20), Iko 

do  22  1-1, n 

do  22  J=l,nft 

punch  102,l,j,a(l,j) 

l»n-l 

k-1+1 

X«0> 

x=a(l,l:)  'a(k,nn)+x 
lf(k-R)10,ll,ll 
k-k+1 
£0  to  12 

o(l,nn)=a(l,nn)-x 

1^(1-1)13,13,14 

1-1-1 

£0  to  15 

do  16  l-l,n,l 

do  16  J«l,n&,l 

punch  102,l,J,a(l,J) 

Gtop 

pauGo  nil 

£0  to  23 

ecd 

ead 
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OPERATHiO  PROCEPURE 

(1)  Load  160  FORTRAN  A  Compiler  III 

(2)  Mount  object  program 

(3)  Clear  and  run 

(4)  Mount  data  tape 

(5)  Turn  on  punch 

(6)  Cycle  run  switch 

Note;  If  HN  ■  30  program  will  halt  with  1111  displayed  in  a  register. 
Correct  data  tape  and  cycle  run  switch. 


SAMPIE  INPUT 

SAMPIE  OUTPUT 

1  4 

1.00 

1  1 

1,00 

1.00 

1  2 

1.00 

1.00 

1  3 

1.00 

1.00 

1  4 

1.00 

5.00 

1  5 

1.00 

1.00 

2  1 

.00 

-1.00 

2  2 

1.00 

1.00 

2  3 

.00 

i.oo 

2  4 

.00 

1,00 

2  5 

2.00 

1.00 

3  1 

.00 

2.00 

3  2 

.00 

-1.00 

3  3 

1.00 

1.00 

3  4 

.00 

1.00 

3  5 

3.00 

2.00 

4  1 

.00 

1.00 

4  2 

.00 

1.00 

4  3 

.00 

1.00 

4  4 

1.00 

6.00 

4  5 

-1.00 
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IDENTIFICATION 

Title:  Spiralled  Way  Alignment  -  Ident.  AKl.Ol 

Programmer:  (Lockwood,  Kessler  &  Bartlett,  Inc.)«  September  I962 

I.  Description  of  Problem 

This  program  computes  the  alignment  and  curve  data  for  a  horizontal 
alignment  containing  spirals  and  circular  curves  In  any  combination. 

The  alignment  Is  defined  by  coordinates  of  the  P.  I.'s  or  by  Intersecting 
the  P.  I.  from  coordinates  of  two  known  points  and  the  bearings  of  the 

P.  I. 

The  curves  are  defined  by  the  radius  or  degree  of  curve  and  the  lengths 
of  the  leading  spiral  and  the  trailing  spiral. 

Chord  or  arc  definition  may  be  used  for  degree  of  curve  controlled  by  the 
program  (with  use  of  a  jump  switch  setting  on  the  computer). 

Values  of  Radius  below  50  feet  are  assumed  to  be  degree  of  curve  and 
those  values  of  50  feet  or  above  are  used  as  radius  of  curve. 

All  descriptive  headings  are  typed  out  to  facilitate  use  of  output  data. 

This  program  also  computes  the  station  and  coordinates  of  all  detail 
points  on  the  alignment. 
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IL  Limitations 

1.  The  number  of  curves  which  can  be  computed  is 
uxilimited. 

2.  Output  is  provided  via  on-line  typewriter. 

3.  Input  is  jlimited  lo  tape  produced  on  off-line 
flexowriter. 


IIL  Accuracy 

Input  and  output  of  distances  and  coordinates  are  limited 
to  10  significant  digits  with  a  maximum  of  4  decimal  place  a. 
Angles  are  rounded  to  the  nearest  0.  01  of  a  second. 


IV.  Equipment  Affected 

1.  I6O-A  with  on-line  typewriter. 

2.  Off-line  flexowi'iter  required  to  produce  input  data 
tape. 


V,  Memory  Allocation 


Loc. 


0000-0081 

Sin-cos  s/r 

0082-0157 

Arctan  s/r 

0158-0211 

Square  root  s/r 

0212-0309 

P  I  Intersection 

0310-0399 

Bearing  and  angle'  typeout 

0400-0527 

Spiral  Routine 

0530-0551 

Station  typeout 

0552-0.661 

Alpha  Storage 

0680-0799 

Numeric  h  Temporary  Storage 

0800-1603 

Main  Program 

1700-1713 

Input  Storage 

1800-1813 

Input  Storage 

1900-1913 

Input  Storage 

1920-1937 

Input  Storage 
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VL  Operatinpi  Procedure 

1.  Margin  and  tabs 

Margin  at  20 
All  tabs  down 
Output  paper  at  12 

2.  Load  Sicom 

3.  Place  the  program 

4.  Established  typewriter  input  mode 

5.  Type  52  OO'OO  / 

Reads  the  program  and  stops 

6.  Jump  switch  1 

On  for  chord  definition  of  degree  of  curve 
Off  for  arc  definition  of  degree  of  curve 

7.  Place  Flexowriter  input  tape 

8.  Type  x  01  0800  / 

Rbads  one  block  of  input  tape  and  computes 

9.  Output  and  stops  at  5 

10.  For  next  problem 

Cycle  Run 
Repeat  from  step  6 

11.  Error  indications 

(1)  Program  types  "Spiral  Overlap"  and  amount  of 
overlap  in  degrees,  and  stops  at  3  which  indicates 
overlapping  spirals  on  the  curve. 

(2)  Program  types  "Curve  Overlap"  and  amount  of 
overlap  in  feet,  and  stops  at  4  which  indicates 
overlapping  curves  between  P  I's. 

12.  After  inspection  of  error  typeout  computations  may 
be  resumed  by: 

Cycle  Run 
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VII  Description  of  Input 

Job  No.  (up  to  8  alpha  characters) 

Date  (up  to  16  alpha  characters) 

Station  at  beginning  of  increments  (up  to  10  digits) 

Increments  on'eurves  (up  to  10  digits) 

Increments  on  tangents  (up  to  10  digits) 

If  incremented  stations  are  not  required  enter  very  large 
numbers  for  botn  curves  and  tangents. 

North  coordinate  of  origin  point  (up  to  10  digits) 

Cast  coordinate  of  origin  point  (up  to  10  digits) 

Station  of  origin  point  (up  to  10  digits) 

For  Each  P  I. 


P  1  number  (up  to  8  alpha  characters) 

Radius  or  degree  of  curve  (Rc  or  Oc) 

Values  below  50  arc  considered  to  be  degree  of  curve 
**  Degree  of  curve  entered  as:  DO.  MMSSXX 
Length  of  leading  spiral  (enter  0.  if  not  used) 

Length  of  trailing  spiral  (enter  0.  if  not  used) 

North  coordinate  of  P  I  (if  known)* 

East  coordinate  of  P  I  (if  knowni)* 

Repeat  for  each  P  I 

*  If  P  I  coordinates  are  not  known,  enter  in  these  locations 
the  coordinates  of  a  point  on  tangent,  the  bearing  to  the  P  I, 

the  coordinates  of  a  point  on  the  next  tangent  anc^  the  bearing 

to  the  P  I. 

The  program  willautomatically  intersect  the  two  tangents 
and  store  the  P  I  coordinates  in  proper  locations. 

To  terminate  the  problem  enter  only  the  P  I  number, .  (this 
number  will  not  be  typed  out)  and  the  coordinates  of  the 
terminus  point. 

**'  Degree  of  curve  may  be  either  arc  or  chord  definition.. 
(See  operating  instructions). 
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VIII.  Description  of- Output 

This  progrann  will  type  the  following  information: 

1.  Title  of  Program 

2.  Job  No. 

3.  Date 

4.  Station  and  coordinates  of  origin  and  the  bearing 
to  the  first  P.  I. 

5.  Curve  No.  of  the  first  curve  and  the  bearing  to 
the  next  P.  I. 

6.  Data  for  the  leading  spiral  (if  any) 

7.  Data  for  the  trailing  spiral  (if  any) 

8.  Curve  Data  for  the  circular  portion  of  the  curve 
consisting  of: 

Radius  (R) 

Degree  of  Curve  (Dc) 

Internal  Angle  (Ic) 

Length  of  Curve  (Lc) 

Tangent  of  Curve  (Tc) 

Chord  Distance  (Cc) 

External  (Ec) 

Middle  Ordinate  (Me) 
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JOB  KO. 


_13og.  of  I^Crcmftnts 

9. 9. .  .1 


_  NORTH_ 


A  L  J  C  N  M  K  i\  T 


lnc.i-crno.iils  .0a.CutyO.s.. 

1 _ ^ _ Z  .O..O..0  .P_P.i 

O  R  1  G  IN 

.  _ EAST 

S.SS  B] 


DATE 

Month 


bay  Year 


son 
5  ~ 


n  * 

n 


PI  No. 

r.f'~ 

:  2.. 

:  3 


Bc  orDcTlj  '  Ls'  i  NORTH 

I  35A~|^37o.  T  J  V/  22P.  7T/  ■  /«/v9tf^ 


EAST 


BEARING  ! 


seii.iz 


o.  j.  SHHnt-syo 

I  SflOSf-  zs/ 

.1 


h 

i 

» 

■t 

.! 


/e/6oe/.oiB 

ie/S707.  77  B 


,.JllC.tC»cut  s..au..T.an£ejits 

I  •  . . ..A.99..9..9M 


station 

1...  %A..9l'2 


NORTH 


EAST 


BEARING 


■'I- 


d  0 

5  5 

n  n 


0  *0 

e  2 

PI  m 

.3,'^ 


§5 

•  PI 

53 


ENCIXEEBINC.OIVJSIQ.'l.^V-i:  LOCKWOOD.  KESSLER  &  BASTLETT,  Iii& -  .  .  STOSSET.S.Y. 
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flexcwriter  PRSP/.Rmow 


;1XB  02 

jog 

iSept.  1  1962 

76500. 

//v<s//A/^  0^  ii^easytSNTS 

200. 

IUce£l^£tJT  on  CuCi/£^ 

500. 

^  ^  ^  £  M  £n  7  ois/ 

539634.956 

‘i C  ' ^  >7  -  /  •  nriCS 

1815553.618 

••  -  A 

76198.96 

-  S  TJ5  r/ov 

/;! 

P-I.  ^ 

2864.79 

iZflOinS  Of 

350. 

L£»Oin^  sptaf/L.  L£>nf,r/i 

350. 

541220.761 

y  Cooeo  OF  p.x. 

1814903.376 

X  "  " 

/J2 

/’.J.  W 

3819.72 

^FO'Vi  OF  cupve 

0. 

0. 

1-t.FtO'nif  iPtaPL  LUFfffm 

TiiPn  '• 

544771.57 

1816081.018 

Y  Coofi  0  OP  p.  z  . 

'X  "  » 

/;3 

547051.251 

Y 

Coo^O  OP  r£^nfmpi.  potnr 

1615707.978 

X 

•  1 » 

/ 
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520000/XOI0800/ 


AL20NM2NT 


Job  II2  UCB  02 


Date  Sept.  1  1962 


0S2GIK 


CURVE  N2  1 

leadiho  spiral 
l<a=  350.0000 
233.3789 

TRAIUKG  SPIRAL 
Ls-  350.0000 

MV  233.3789 


STATION 

761+98.960 


NORTH 

539634.9560 


EAST  BEARING 

1815553.6180  N  22*  17*  43.96  V 


N  18*  20'  5U.OI  E 


P  -  1.7814  k  - 

ST-  116.7081  LC- 


174.9782  X- 

349.9419  0- 


349.8694  y- 

3*  30*  .00  ^ 


7.1248 
!•  9*  59.87 


P  «■ 

ST- 


1.7814  k  - 
116.7081  LC- 


174.9782  X- 
349.9419  ©- 


349.8694  y- 

3*  30*  .00  ^  !• 


7.1248 
9*  59.87 


CIRCULAR  CURVE 
R  -  2864.7900  Dc  - 
Cc-  1658.1312  Ec  - 
Ts-  1236.6033  Te'- 


1236.6033  I  .  4o*  38'  37.98 


POINT 

P-I 

T-S 

S-C 

C-S 

S-T 


STATION 

779+12.901 
766+76.297 
770+26.297 
787+  8.492 
790+58.492 


.  NORTH  east 

541220.7610  1814903.3760 

540076.6071  1815372.5240 

540403 . 0231  1815246 . 3810 
542060.1707  1815189.2770 
542394.4957  1815292.6500 


CENTER  OF  CURVE 


541326 . 0358  1817958 . 4040 


ON  TANGENT 
ON  SPIRAL 

ON  CURVE 


ON  SPIRAL 


765+00.000 

768+00.000 

770+00.000 

772+00.000 

774+00.000 

776+00.000 

778+00.000 

780+00.000 

782+00.000 

784+00.000 

786+00.000 

788+00.000 

790+00.000 


539913.4900 

540191.1805 

540378.1664 

540569.0585 

540763.6375 

540960.9564 

541160.0540 

541359.9602 

541559. 70U 

541758.3037 

541954.8002 

542148.2689 

542338.9^ 


1815439.4080 

1815325.8850 

1815254.9650 

1815195.4330 

1815149.3600 

1815116.9720 

1815098.4270 

1815093.8150 

1815103.1590 

1815126.4140 

1815163.4660 

1815214.0120 

1815274.2690 
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CWRVE  n:  2  H  9*  17'  36.02  W 


CHROILAR  CURVE 

R  -  3819.7200  De  -  1*  30'  .00  Ic-  27*  38*  30.04  Le-  1842.7791  Tc-  939.6864 

Cc-  1824.9602  Ec  -  113.8879  Me-  UO.5905 

Ta-  939.6864  To'-  939-6664  I  -  27*  38*  30.04 


POINT 

8TATI0N 

NORTH 

EAST 

P-I 

815+62.889 

544771.5700 

1816081.0180 

P-C 

806+23.203 

543879.6570 

1815785.2110 

P-T 

824+65.982 

545698.9226 

1815929.2690 

CENTER  OP  CURVE 

545082.0794 

1812159.6850 

ON  TANGENT 

795+00.000 

544353.9769 

1815942. 5210 

800+00.000 

54462S.557O 

1816099.9180 

805+00.000 

545303.1372 

1816257.3150 

ON  CURVE 

810+00.000 

544242.5637 

1815686.0060 

812+00.000 

544438.7348 

1815924.8370 

814+00.000 

544636.6692 

1815953.3470 

816+00.000 

544835.8245 

1815971.4580 

818+00.000 

545035.6547 

1815979.1230 

820+00.000 

545235.6122 

1815976.3180 

822+00.000 

545435.1489 

1815963.0520 

824+00.000 

545633.7178 

1815939.3610 

OS  TASOEST  825+00.000  545732.4940  1815923.7750 

830+00.000  546225.9313  l8l58Jv3.0310 
835'+00.000  546719.3685  1815762.2860 
83&+36.297  547051.2510  1815707.9780 


TERMINAL 
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Kl. 


IDENTIFICATION 

Title:  Traverse  Adjustment  -  Ident.  AK1.02 

Programmer:  (Lockwood^  Kessler  &  Bartlett,  Inc.)>  May  19^2 

1.  Description  of  Problem 

For  this  program,  a  traverse  Is  defined  as  a  series  of  measured  distances 
and  directions,  starting  from  a  point  of  known  coordinates,  and  terminating 
at  a  point  of  known  coordinates. 

The  program  provides  for  the  output  of  either  the  unadjusted  or  adjusted 
traverse  (according  to  Compass  Rule). 

Input  of  directions  can  be  in  the  form  of  either  bearings  or  north 
azimuths,  and  output  of  directions,  regardless  of  Input,  can  be  either 
bearings  or  north  azimuths. 

The  computed  precision,  length  of  traverse,  Y  error,  X  error  and  resultant 
error  are  printed  first,  giving  the  user  the  option  of  examining  the  results 
and  interrupting  computations  If  necessary. 

The  program  provides  alphanumeric  identification  and  column  headings. 

The  program  computes  the  area  in  square  feet  and  acres  of  the  unadjusted 
traverse.  The  area  Is  printed  at  the  end  of  the  unadjusted  output. 

2.  Accuracy 

The  program  accepts  distances  and  coordinates  accurate  to  0.001  units 
and  direction  angles  accurate  to  0.01  seconds. 

The  computed  distances  and  coordinates  are  roimded  to  0.001  ^ units,  and 
the  angles  axe  rounded  to  0.01+  seconds. 

3.  Limitations 


The  traverse  may  contain  200  maximum  courses  and  may  be  in  any  one  of  the 
four  quadrants. 


All  input  is  via  Flexowrlter  tape 
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1.  Description  o£  Problem 


For  this  program,  a  traverse  is  defined  as  a  series  of 
measured  distances  and  directions,  starting  from  a  point 
of  known  coordinates,  and  terminating  at  a  point  of  known 
coordinates. 

The  program  provides  for  the  output  of  either  the  unadjusted 
or  adjusted  traverse  (according  to  Compass  Rule). 

Input  of  directions  can  be  in  the  form  of  either  bearings  or 
north  azimuths,  and  output  of  directions,  regardless  of 
input,  can  be  either  bearings  or  north  azimuths. 

The  computed  precision,  length  of  traverse,  Y  error,  X 
error  and  resultant  error  are  printed  first,  giving  the  user 
the  option  of  examining  the  results  and  interrupting  com¬ 
putations  if  necessary. 

The  program  provides  alphanumeric  identification  and  column 
headings. 

The  program  computes  the  area  in  square  feet  and  acres  of 
the  unadjusted  traverse.  The  area  is  printed  at  the  end  of 
the  unadjusted  output, 

2.  Accuracy 

The  program  accepts  distances  and  coordinates  accurate  to 
0.  001  units  and  direction  angles  accurate  to  0.  01  seconds. 

The  computed  distances  and  coordinates  are  rounded  to 
0.  001  ±  units,  and  the  angles  are  rounded  to  0.  01  i  seconds. 

3.  Limitations 

The  traverse  may  contain  200  maximum  courses  and  may 
be  in  any  one  of  the  four  quadrants. 

All  input  is  via  Flexowriter  tape. 
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4.  Equipment  Affected 

C  D  C  160-A.  161 
Flexowriter 

5.  Memory  Allocation 


0000  -  0081 

Sin-cos  s/r 

0082  -  0157 

Arctan  s/r 

0158  -  0211 

Square  root  s/r 

0212  -  0229 

Station  Typeout  routine 

0230  -  0266 

Bearing  to  azimuth  routine 

0267  -  0353 

Bearing -angle  output  routine 

0354  -  0401 

Temporary  storage 

0402  -  0437 

Alpha  storage 

0438  .  0465 

Input  storage 

0466  -  0499 

Temporary  storage 

0500  -  0734 

Main  program 

0800  •  1998 

Input  storage 
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6.  Operating  Procedure 

(1)  Margin  and  tabs 

Margin  at  20 
Every  other  tab  down 
Output  paper  at  10 

(2)  Load  Sicom-A  (May  1962) 

(3)  Place  the  program 

(4)  Establish  typewriter  input  mode 

(5)  Type 

52  0000  / 

Reads  the  program  and  stops 

(6)  Jump  switch  1 

On  for  punch  output  (p\inch  on) 
Off  for  type  output 

(7)  Jump  switch  2 

On  for  adjusted  traverse 
Off  for  unadjusted  traverse 

(8)  Place  Flexowriter  input  tape 

(9)  Type 

X  01  0500  / 

Reads  the  data  tape  and  computes 

(10)  Output 

Stops  at  4  for  unadjusted  traverse 
Stops  at  3  for  adjusted  traverse 

(11)  For  the  next  problem 

Cycle  Run  (stops  at  5) 

Cycle  Run  again  (halts) 

Repeat  from  step  (6) 
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7.  Description  of  Input  and  Output 

Input  is  prepared  on  off-line  Flexowriter. 

Job  number,  traverse  number,  Y  code,  X  code,  point  No. 
of  1st  point,  and  all  other  point  numbers  (as  identification) 
are  entered  as  one  alpha  word.  Date  is  entered  as  two 
alpha  words. 

Computation  time  is  approximately  2  1/2  seconds  per  course 
for  punch  output  and  12  seconds  per  course  for  typewriter 
output. 
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Kl. 

IDENTIFICATION 

Title:  Lines  and  Circle  -  Ident.  AK1.03 

Programmer:  (Lockwood,  Kessler  &  Bartlett,  Inc.),  August  I962 
I.  Statemtne  of  Problem 


This  program  consists  of  the  following  five  Independent  parts.  The  known 
data  may  be  located  In  any  of  4  quadrants. 

Part  I  Intersections  of  Two  Lines 

The  coordinates  of  two  points  are  given  to  define  the  slope  of  each 
straight  line.  It  Is  required  to  compute;  (l)  the  coordinates  of  inter¬ 
section  of  two  lines,  and  (2)  dlsttunces  from  each  given  point  to  the 
Intersection. 

Part  II  Intersection  of  Line  and  Circle 

The  coordinates  of  two  points  on  a  straight  line,  the  coordinates  of  the 
center  of  a  circle,  and  the  radius  of  the  circle  are  given.  It  Is  required 
to  determine  the  coordinates  of  the  Intersections  of  the  line  and  circle. 

Part  III  Distance  and  Bearing 

The  coordinates  of  two  points  on  a  straight  line  are  known.  It  is  required 
to  compute;  (l)  the  distance  between  the  two  points,  and  (2)  the  bearing 
of  the  line. 

Part  IV  Height  of  Triamgle 

The  coordinates  of  three  comers  of  a  triangle  are  given.  It  is  required 
to  determine,  (1)  the  height  of  triangle,  and  (2)  the  distance  from  first 
comer  to  the  foot  of  perpendicular. 

Part  V  Tangent,  Arc,  and  Segment 

The  radius  of  a  circle  and  the  angle  at  the  center  of  the  circle  are  given. 
It  is  required  to  compute,  (l)  the  tangent  distance,  (2)  the  arc  length, 

«u3d  (3)  the  area  of  segment. 
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II.  Limitations 

1.  The  input  data  with  proper  mathematical  signs,  for 

all  five  parts,  .may  be  located  in  any  one  of  four  quadrants. 

2.  Part  II:  When  there  is  no  intersection  of  the  given  line, 
and  circle,  the  radius  of  the  circle  will  be  typed  out 
as  an  error  indication. 

3.  Part  III:  The  interior  angle  I  at  the  center  of  a  circle 
must  be  less  than  180*. 


in.  Equipment  Affected 

CDC  160-A 
CDC  161 
Flexo  writer 


IV.  Memory  Allocation 


1000  - 

1007 

All  Parts 

1008  - 

1069 

Part  I 

1070  - 

1099 

Part  II 

1100  - 

1117 

Input  all  Parts 

1118  - 

1119 

Constant 

1120  - 

1161 

Part  II 

1162  - 

1183 

Part  III 

1184  - 

1306 

Part  IV 

1307  - 

1335 

Part  V 

1336  - 

1349 

Constants  and  intermediate  storage 

1350  - 

1381 

All  Parts 

1400  - 

1482 

Sin-cos  s/r 

1500  - 

1559 

Angle  conversion  s/r 

1600  - 

1645 

Radius  to  Bearing  s/r 

1700  - 

1776 

Arctan  s/r 

1800  - 

1854 

Square  root  s/r 

1000  - 

1854 

Program  Tape 

4-17^ 


W-(I.)-993 
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V.  Description  of  Input  Data 

An  angle  as  the  input  data. is  entered  as  degrees,  minutes 
and  seconds  with  degrees  as  integers,  in  the  following  form: 
DDD.  MMSSXX 

Computation  time  will  not  exceed  more  than  five  seconds  for 
any  Part. 

Part  I:  Intersection  of  two  Lines 

Loc.  1100  Yi  Coordinate  on  let  line 

1102  XI 

1104  yz 

1106  x2  " 

1 1 0$  y3  Coordinate  on  2nd  line 

1110  X3  " 

1112  y4  " 

1114  X4  " 

Part  II;  Intersection  of  Line  and  Circle 

Loc.  1100  y^  Coordinate  on  a  line 

1102  XI  " 

1104  y2  " 

1106  X2  " 

1108  y^  Coordinate  of  the  center 

1110  .Xc  " 

1112  R  Radius  of  the  circle 


Part  III:  Distance  and  Bearing 

Loc.  1100  y^  Coordinate  of  1st  point 

1102  xj 

1104  y2  Coordinate  of  2nd  point 
1106  X2  " 


Part  IV:  Height  of  Triangle 


Loc. 


1100  yj^  Coordinate 
1102  x^ 

1104  y2  Coordinate 
1106  X2  " 

1108  y^  Coordinate 

1110  Xj  " 


of  Ist  corner 
of  2nd  corner 
of  3rd  comer 
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VL 


Part  V:  Tangent,  Arc,  and  Segment 

Loc.  1100  R  Radius  of  circle  in  ft. 
1102  1  Interior  angle 


Description  of  Output  Data 

Part  I;  Intersection  of  two  lines 

N  £  Coordinates  of  intersection 


“1 

^2 

di+  d2 

^3 


Distance  from  1st  point  to  intersection  on  first  line 
Distance  from  2nd  point  to  intersection  on  first  line 
Distance  from  1st  to  2nd  point  on  first  line 

Distance  from  3rd  point  to  intersection  on  second  line 
Distance  from  4th  point  to  intersection  on  second  line 


d3+  d^  Distance  from  3rd  to  4th  point  on  first  line 
Part  II;  Intersection  of  Line  and  Circle 
N'  £'  Coordinates  of  one  intersection 
N"  E"  Coordinates  of  other  intersection 
Part  III:  Distance  and  Bearing 
d  N  DD  MM  SS  E 


Part  IV:  Height  of  Triangle 
h  1  b  -  1 

h  -  Perpendicular  distance  from  3rd  corner  to  base 
1  =  Distance  from  1st  corner  to  foot  of  perpendicular 
b  =  Distance  from  1st  corner  to  second  corner 

Part  V:  Tangent,  Arc  and  Segment 

TLA 

T  =  Tangent  length 

L  s  Arc  length 

A  s  Segment  area  in  sq.  ft. 
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VII.  Operating  Procedure 

1.  Margin  and  tabs 

(1)  Margin  at  20 

(2)  All  tabs  down 

(3)  Paper  at  0 

2.  Load  Sicom 

3.  Place  the  program  tape 

4.  Input  mode  ? 

(1)  Flex  input. 

Cycle  Run  to  read  the  program  (Stop  3) 

(2)  Type  input, 

11/  to  read  the  program  (Stop  3) 

5.  Jump  switch  2 

(1)  On  for  type  output 

(2)  Off  for  Flex  output  (punch  on) 

6.  Jump  switch  1 

(1)  On  for  tyjic  input,  go  to  step  7 

(2)  Off  for  Flex  input,  go  to  step  10 

(Provide  5/  at  the  end  of  the  tape) 

7.  Cycle  Run  (halts  for  type  input) 

8.  Type  input  data  (1100  -  1114) 

Type  /  after  the  last  tab  or  CR  for  each  solution. 

9.  Output  of  each  solution 

Repeat  from  step  8 

10.  Cycle  Run  (for  Flex  ii^ut) 

11.  Reads  the  Flex  input  tape  and  output  for  each  solution. 

12.  To  alter  the  condition  of  input  or  output  mode  for  the  next 
solution,  change  positions  of  switch  1  or  2  as  in  steps  5 
and  6  during  computations. 
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VIII.  Sample  Input 


Part  I:  Intersection  of  Two  Lines 


221053.462 
220355. 616 
220004. 625 
220983.902 

0. 


189725.  723 
190441.  971 
189804.  966 
190941.  195 
/ 


Part  II:  Intersection  of  Line  and  Circle 


206791.463 
204302.986 
205468. 028 
1165.920 


290535.  797 
290775.  556 
290520.962 
0.  / 


Part  in:  Distance  and  Bearing 

395326.986  640001.947 

396178.421  640646.  194 

0.  / 


Part  IV:  Height  of  Triangle 


919904.  Ill 

920112,  1 

920172.  861 

0. 


634350.  135 
634206.  425 
634467.  323 
/ 


Part  V:  Tangent,  Arc  and  Segment 


475 

0 


11.  1137 

/ 
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IX.  Sample  Output 


Part  I;  Intersection  of  Two  Lines 

220460.  690  190334.  126 

849.  431 
150.  569 
1000.  000 

698.  574 
801.  426 
1500.  000 


Part  II;  Intersections  of  Line  and  Circle 
204329.  672  290772.985 

206633.  561  290551.  011 


Part  III;  Distance  and  Bearing 

1067.  706  N  37  06  48  E 


Part  IV:  Height  of  Triangle 

249.  184  154.488  98.320 


Part  V:  Tangent,  Arc  and  Segment 


46.  547 


92.  799 


139.933 
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Kl. 

IirariFICATION 

Title:  Transfoinatlon  of  Coordinates  -  Ident  AK1.04 
Pjrogranmer:  (Lockwood,  Kessler  8s  Bartlett,  Inc.),  September  1962 

I.  Statement  of  Problem 

This  program  will  rotate  and  translate  the  coordinate  of  a  series  of 
points  which  define  an  enclosed  area  of  traverse,  compute  the  bearings 
and  distances  between  these  points,  and  find  the  area  enclosed. 

The  input  consists  of  the  angle  of  rotation  between  the  given  system 
and  the  desired  system,  the  x  cmd  y  coordinates  of  the  starting  point 
in  the  desired  system,  and  the  x  and  y  coordinates  of  each  i>oint  in  the 
given  system. 

II .  Limitations 

1.  The  number  of  points  which  can  be  computed  is  limited  to  I98. 

2.  Angle  of  rotation  may  be  clockwise  or  counter  clockwise,  up  to  360°. 

III.  Accuracy 

Input  and  output  of  distances  and  coordinates  are  limited  to  10  signifi¬ 
cant  digits  with  a  maximum  of  4  decimal  places.  Angles  are  conq;)Uted 
to  0.01  decimal  places. 

IV ,  Equipment  Affected 

1.  160-A  with  on  line  typewriter. 

2.  An  off-line  flexowriter  may  be  used  for  iiqnit  or  output. 

V .  Memory  Allocation 

Loc  0000-0081  Sin- cos  s/r 

0184-0237  Square  root  s/r 

0239-0314  Arctan  s/r 

0318-0319  Alpha  storage 

0320-0331  Input  storage 

0332-0343  Teii5>orary  storage 
0344-0351  Ininit  storage 

0352-03^  Alpha  storage 

0394-0399  Numeric  storage 

0400-0745  Main  program 

O80O-I999  Input  storage 
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(3)  Input  data  that  la  repeated  for  each  solution 

a.  Parcel  number  (up  to  8  alpha  characters)  CR  / 

b.  Angle  of  rotation; 

If  clockwise 

-  If  counter  clockwise  (up  to  10  digits)  CR 

c.  y  coordinate  of  starting  point  In  the  desired  system. 

(up  to  10  digits)  CR 

d.  X  coordinate  of  starting  point  In  the  desired  systems 
(up  to  10  digits)  CR 

e.  Identification  number  of  point  (up  to  8  alpha  characters, 
but  not  more  than  6  spaces,  if  less  fill,  field  of  6  with 
space  code)  CR 

f .  y  coordinate  of  first  point  to  be  transformed  (up  to  10 
digits)  CR 

g.  X  coordinate  of  first  point  to  be  transformed  (up  to  10 
digits)  CR 

(4)  Repeat  steps  e.,  f.,  and  g.,  for  each  succeeding  point. 

(5)  After  type- In  of  last  x  coordinate 

1.  type  0.  CR 

2.  type  0.  CR 

Program  computes  solution  and  returns  to  type-in  state  ready 
for  entry  of  data  at  step  (3)  for  next  solution. 

7.  Program  halts 

(1)  End  of  solutions  (For  flex  tape  Input) 

1.  Selective  Stop  2  on  will  cause  program  to  halt  after 
each  solution 

2.  ^  /  on  tape  after  last  input  data  will  halt  computations 
(For  type  input) 

1.  Program  heO-ts  at  end  of  each  solution  (see  step  6.  (3)  ). 
Error  alarm  halt 

1*  Stop  4  is  used  to  indicate  number  of  points  limit  has 
been  exceeded. 


(2) 
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VI .  Operatd.ng  Procedure 

1.  Margin  and  tabs 

(1)  Margin  at  15 

(2)  All  tabs  down 

(3)  Paper  at  0 

2.  Load  Slcom  and  set  type  in  mode. 

3 .  Load  program 

(1)  Type  52  0000  /  (reads  program  and  stops) 

(2)  Type  X  010400  /  (stops  at  4) 

(3)  Set  Selective  Jump  2  on 

4.  Set  Input  mode 

(1)  For  flex  tape  Innut;  Selective 

Jtimp  1  off  and  place  input  data  tape  on  photo-reader. 

(2)  For  typewriter  input:  Selective 
Jump  1  on 

(3)  For  input  verification:  Selective 
Jump  4  on 

5.  Set  output  mode 

(1)  For  typewriter  output:  program  is  now  set 

(2)  For  tape  output: 

1.  Master  clear  and  cycle  run 

2.  Type  12/ 

3.  Type  X  010413  /  (stop  4) 

6.  Read  input  and  compute 

(1)  Cycle  run 

A.  For  flex  tape  input;  program  reads  tape  for  one  solution 
and  computes.  Input  form  of  tape  is  the  same  as  that 
described  below  for  type  input. 

B.  For  typewriter  input  (with  Selective  Jump  4  off) 

(2)  Input  for  first  parcel  only;  program  stores  this  data  for  use 
with  succeeding  solutions 

Type 

1.  Previous  Area  (up  to  10  digits)  CR 

2.  Job  number  and  date  (up  to  24  alpha  characters)  CR  / 
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0. 

; 9156-05 

1  Sap'i 
I  25  1962 
I  ill 

/-ifl.iss 

6512.679 

3o£**5.C6U 

;73.5 

123‘>5.67a 

51*321.937 

j7‘*.2 

121*67.123 

51*31*1*.  15 

;77.i 

11763.755 

5501*2.53 
i77.2 
U.'ida.iiji* 
55033.656 
;76.2 
Ul*l*2.1t02 
51*01*3.  C’J*3 
; 76.2a 
1231*5.670 
51*321.987 
0 
0. 

5/ 


sa;?u.  iiipijv 


i-rASrin<) 

J08  nui^sib 


I 


i>8  TB 


Of  iTneriu^  Point  in  tns  t>BSiet6  sySTcmt 


Of  nesr  point  (^stpstun^  point]  to  b£  rePNSPoeiNto 


of  secoNo  Point  to  se  Te.>)Nsfoa 


Nteo 


l.f>sr  POINT  TO  «£  THHnSPOBn/bO 


ewo  coDCi 
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X010i»00/ 


?v\ncsL  i;o. 

POIIv? 

73.5 


7k. 2 

77.1 

77.2 

76.2 

76.2a 

73.5 


II  7 
S  63 
s  17 
S  81 


N  1 


9156-03  Cept  25  1962 

DIoTA'ICE 


77  JOE  NO. 

5S  49.10 

19  21.03 
18  19.01 

^0  39.95 
29  J*6.23 

lUS  EAST 


V  123.4557 

2  967.6535 

E  499.999c 

W  1000.0002 

w  9^*3.5931 

.0000 


7  coo;oi:;..v:'E 
6912.6790 
7034.9391 
6591.5142 
6114.1478 
5969.4076 
6912.6790 
6912.6790 


AREA  so.  ft.  acres 

701267.5800  16.0988 

701267.5800  16.0988 


X  coo.EDi:r;:r'E 

38843.8640 

38626.7243 

39709.2399 

39857.9713 

38868.5014 

38843.8640 

38843.8640 
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K2. 


IIENTIFICAriON 

Title:  Single  Profile  -  Ident.  AK2.01 

Programmer:  (Lockwood,  Kessler  &  Bartlett  Inc.);  November  1962 

I.  Statement  of  Problem 

Given  basic  data  to  define  the  vertical  alignment  of  a  highway  the  progreun 
will  compute  all  the  required  data  and  elevations  at  even  Incremented 
stations . 

The  program  is  divided  into  two  parts.  The  first  part  computes  grades, 

PVI  stations  and  elevations,  vertical  curve  lengths  and  stopping  sight 
distance  for  the  selected  curve. 

The  program  will  stop  after  computing  part  I  to  allow  any  change  to  be 
made  before  beginning  part  II. 

Fart  II  computes  the  elevation  at  incremented  stations.  The  increment  on 
vertical  temgents  may  differ  from  the  Increment  on  vertical  curves.  In 
addition  to  evenly  Incremented  stations  the  program  will  compute  and 
type  out  the  high  points  and  low  points  on  the  curve,  the  elevation  of 
odd  stations  not  covered  by  the  Increments,  the  Middle  Correction  at  each 
PVI  and  all  other  data  required  to  fully  define  a  highway  profile. 

The  grades  and  elevations  can  either  be  rounded  or  unrounded  as  required. 
Appropriate  errors  alarms  are  built  into  the  program  with  proper  identi¬ 
fication. 

II.  Limitations 


1.  The  maximum  number  of  FVI's  is  33 • 

2.  All  elevations  must  be  entered  as  being  above  zero. 

3.  The  maximum  number  of  "Odd  Stations"  is  ^9. 

4.  The  starting  point  must  be  on  tangent. 

Except  for  Sight  Dist.  this  program  will  work  in  Metric  System. 
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III.  Accuracy 

1.  Grades  are  rounded  to  the  nearest  0.  01'  or  when 
unrounded  are  carried  as  10  significant  digits. 

2.  Elevations  are  rounded  to  nearest  0.  01'. 

3.  Vertical  Curves  are  rounded  upward  to  next  50'  when 
total  length  is  mider  1000'.  When  length  is  over  1000', 
curves  are  rounded  upward  to  next  100'. 

IV.  Equipment  Affected 

CDC  160-A 

CDC  161  (Typewriter) 

Flexowritcr 

V.  Memory  Allocation 


0000  - 

0002 

Program 

0005  - 

0059 

Sq.  Rt.  Subroutine 

0060  - 

0117 

Program  Subroutines 

0125  - 

0199 

Main  Program  Part  I 

0200  - 

0267 

Alpha  Storage 

0300  - 

0493 

Main  Program  Part  I 

0496  - 

0886 

Main  Program  Part  II 

1370  - 

1399 

Temporary  Storage 

1400  - 

1499 

Input  Storage  (Odd  Sta. ) 

1500  - 

1773 

Storage 

1774  - 

1799 

Input  Storage  (Starting  Block) 

1800  - 

1999 

Input  Storage  (PVI  Data) 

0000  - 

0886 

Program  Tape 
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VI.  Description  of  Input  Data 
Initial  Data: 


1774 

1776 

1780 


1732 

1784 


1736 

1788 

1790 

1792 

1794 

1796 


1798 


Job  No: 
Date: 

K  Crest: 


KSag; 

Max.  Grade: 


Start  Typeout: 


Inc.  on  Tang.  : 

Inc.  on  Curves: 

Stop  Type  Out: 

Starting  Station: 
Starting  Eleva¬ 
tion: 


Alpha-numeric  identification  of  Job,  up  to 
8  characters. 

Up  to  16  alpha -numeric  characters  but 
more  than  S. 

The  lengths  of  curves  are  computed  by 
L<=  K  A,  where  A  is  the  algebraic  differ¬ 
ence  in  grades.  Enter  the  proper  constant, 
based  on  design  speed  if  the  program  is  to 
compute  length  of  curve.  Enter  any  No.  if 
the  lengths  are  given. 

See  description  above. 

The  program  distinguishes  between  entered 
grades  or  elevations  by  Comparing  with 
this  value.  Any  number  greater  than  this 
value  is  assumed  to  be  an  elevation. 

The  program  will  not  output  any  incremented 
stations  until  this  station  is  reached.  Enter 
a  rounded  station. 

Stations  and  elevations  on  vertical  tangents 
will  be  output  at  this  interval. 

Stations  and  elevations  on  vertical  curves 
will  be  output  at  this  interval. 

The  program  will  stop  output  when  this 
station  is  reached. 

Station  at  which  profile  begins. 

Elevation  of  beginning  of  profile. 


Note:  The  starting  point  must  be  on  a  vortical  tangent. 

Add  Constant  to 

Elevation:  This  value  will  be  added  to  all  elevations. 

The  ability  to  add  (or  subtract)  a  constant 
allows  the  user  to  run  a  parallel  profile 
by  changing  just  one  value. 


TM-(L)-993 


4-187 


Enter  zero  if  the  station  is  to  be 
computed  by  intersecting  two  grades. 

(see  sample  problems) 

The  program  accepts  either  elevations  in 
feet  or  grades  in  %.  All  values  less  than 
the  value  in  loc  1784  are  assumed  to  be 
grades.  Enter  a  negative  elevation  when 
it  is  necessary  to  hold  the  elevation  regard¬ 
less  of  the  rounding  of  the  grades. 

(sec  sample) 

Note;  When  working  with  elevations  near  zero,  it  is  necessary 
to  add  a  constant  to  all  input  elevations  and  then  enter 
the  negative  of  the  constant  in  loc  1798.  The  final 
elevations  output  will  be  the  correct  values.  This 
same  procedure  will  work  when  working  with  negative 
elevations.  (Do  not  use  negative  elevations  as  input 
except  as  noted  above. ) 

1804  Vertical  Curve:  Enter  length  of  vertical  curve  if  known. 

Enter  -1.  if  the  program  is  to  compute 
the  proper  length  of  curve. 

(See  loc  1780  and  1782) 

Enter  up  to  a  total  of  33  PVI's  in  a 
similar  manner. 

Note:  For  last  point,  enter  only  the  station  and  elevation  then 
/  (slash) 


Odd  Stations: 

1400  -  1496  Enter  up  to  49  Odd  Stations 

If  there  are  no  odd  stations  enter  O.  CR/ 
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PVI  Data: 

1800  Station  of  PVI: 

1802  Elevation  or 
Grade: 
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VII.  OcBcription  of  Output  Data 

The  output  is  in  two  parts. Part  I  types  the  curve  data  in  the 
following  form: 

Tab  No.  ,  Grade  to  PVI,  Station,  Elevation,  Curve  length  and 
Sight  distance. 

Part  II  computes  and  outputs  the  incremented  stations  and  the 
corresponding  elevations.  Odd  stations,  highpoints,  lowpoints 
and  all  curve  data  required  to  define  the  vertical  profile  are 
also  output. 

VUI.  Special  Storage 

A.  Storage  of  values  computed  in  Part  I 


No. 

Station 

Elevation 

Grade 

V.  C. 

0 

1500 

1502' 

1504 

1506 

1 

1508 

1510 

1512 

1514 

2 

s 

1516 

1518 

1520 

1522 

s 

33 

1766 

1768 

1770 

1772 

Location  =  No.  x  8  +  (ADDRof  No,  0). 

Example:  The  location  of  the  elevation  of  the  10th  PVI  =  10  x  8  +  1502  =  1582 
B.  Special  Locations 

(1)  Loc' 0060  Station  typeout  format,  42  0602 

(2)  Loc  0064  Elev.  and  MC  typeout  format,  42  0602 

(3)  Loc  0068  Elev.  tyijcout  format,  42  0602 

(4)  Loc  0072  Curve  and  sight  distance  typeout  format,  42  C600 

(5)  Loc  0076  Grade  typeout  format,  42  0604 

(6)  Loc  0228  Contains  the  limit  by  which  the  elevations  may  vary. 

See  Oi^crating  Procedure,  Steps  21  &  22 

The  constant  0.  01  is  stored  in  this  location.  . 
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(7)  Log  0254  This  location  contains  the  length  of  curve  above 
which  the  computed  lengths  arc  rounded  upwards  by  100' 
rather  than  50'.  The  constant  1000  is  stored  in  this  location. 

Example:  If  the  program  computes  a  length  of  curve  of  907' 
it  will  round  to  950'.  If  the  computed  curve  is  1120'  the  pro¬ 
gram  will  round  to  1200'. 

(8)  Loc  0256  Contains  the  station,  elevation  and  grade  roundoff. 
The  constant  0.  005  is  stored. 
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DC.  C^erating  Procodure 


1.  Margin  and  tabs 

(1)  Margin  at  15 

(2)  All  tabs  set 

(3)  Paper  at  0 

2.  Load  Sicom  and  establish  thb  type  input  mode 

3.  Place  the  program  tape 

4.  Read  the  program 

52  0000  /  (halts) 

5.  Stop  switch  1 

(1)  On  to  stop  for  corrections  after  reading  input  tape 

(2) .  Off  to  continue  computations 

6.  Stop  switch  2 

(1)  On  to  stop  after  computations  but  before  typeout  of  Part  I 

(2)  Off  to  typeout  of  Part  I 

7.  Jvmap  switch  2 

(1)  On  for  non>rounding  of  grades  and  elevations 

(2)  Off  for  rounding  to  nearest  0,  01 

8.  Place  Flex  inpvxt  tape  and  type  x  01  0000  /  (Stop  3) 

Part  I 

9.  Cycle  Run  (to  read  the  input  tape  and  compute) 

10.  Stop  1  for  correction? 

(1)  No  correction 

Cycle  Run  to  continue 

(2)  Correct  the  data 

(a)  Clear  and  Run 

(b)  50  ADDR  / 

(c)  Type  corrections 

(d)  Resume  computations  x  01  0001  / 
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11.  Stop  2  to  eliminate  Part  1? 

(1)  To  type  out  Part  I 

Cycle  Run 

(2)  To  by-pass  type  out  of  Part  I 

(a)  Clear  and  Run 

(b)  Go  to  step  13  and  to  step  14  (3) 

12.  Output  of  Part  I  (Stop  3) 

Part  n 

13.  Jump  Switch  1 

(1)  On  for  Flex  output  of  Part  II 

(turn  on  punch) 

(2)  Off  for  type  output  of  Part  II 

14.  To  change  any  computed  values  of  Part  I,  if  not  go  to  step  15 

(1)  Clear  and  Run 

(2)  50  ADDR  / 

(See  the  list  of  Special  Storage) 

(3)  Compute  Part  II 

X  01  0002  / 

Go  to  Step  16 

15.  Cycle  Run  (to  compute  Part  II) 

16.  Output  of  Part  U  (halts  after  final  station  and  elevation) 

17.  For  next  solution,  repeat  from  Step  5 

18.  "ERROR  too  many  PVI's"  (Stop  4) 

When  this  indication  is  typed  out.  revise  input  data  and  start  again. 

(1)  Clear  and  Run 

(2)  Repeat  from  Step  5 

"ERROR  too  many  Odd  Station's"  (Stop  4) 

When  this  indication  is  typed  out.  remove  excess  odd  stations  and 
start  again. 

(1)  Clear  and  Run 

(2)  Repeat  from  5 


19. 
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20.  "Curve  Overlap"  (Stop  4) 

Part  1  will  type  out  the  amount  of  overlap,  when  one  curve 
overlaps  the  previous  curve. 

(1)  Repeat  from  step  14,  or 

(2)  Cycle  Run  to  continue 

21.  "ERROR"  in  PVI  Elevation  (Stop  4) 

If  the  elevation  computed  in  part  U  for  the  PVI  docs  not  agree 
within  previously  defined  limits  with  the  PVI  elevation,  the 
amount  of  discrepency  is  typed  out  labeled  ERROR. 

Cycle  Run  to  resume  computations. 

22.  "ERROR"  in  PVT  Elevation  (Stop  4) 

The  PVT  elevation  is  computed  two  different  ways.  If  they  do 
not  agree,  the  same  error  indication  as  above  is  typed  out. 
Cycle  Run  to  resume  computations. 

23.  Stop  4 

The  Stop  4  is  provided  for  other  errors  without  error  typeout. 
Check  input  data  carefully  and  try  again. 

(1)  Clear  and  Run 

(2)  Repeat  from  Step  5 


8  February  1963 


4-193 


<1 


8  February  I963 


T»I-(L)-993 


FL£XOV/IUTER  INPUT  DESCRIPTION  OF  INPUT 


;U<3  Oj 
jKpv.  15  I'jCS 
>-)0. 
lOO. 

150OT0. 

100!';. 

500. 

IfePJO. 

1497':^1.71 

,704.35 

0. 

149541.71 

205.35- 

300. 

132150. 

,726. 

-1. 

155900. 

-5. 

500. 

0. 

.5 

300. 

0. 

-.5 

0. 

16,7100. 

11-3.6 

300. 

162750. 

-U5.-75 

/15-.a64.3lS 

155977.624 

157566.327 

16C355.1S1 


Job  No. 

Oato 
K  Crest 
K  Sag 
Max  Grade 
Start  Typeout 
Inc  on  Tang, 

Inc  on  Curve 
Stop  Typeout 
Start  Station 
Start  Elev. 

Add  Constant 
PVI  Sta, 

Elev. 

V  C 
Sta. 

EL 

V  C  (Computer  to  Design  Curve) 

Sta. 

Grade 

V  C 

Sta.  (Computer  to  intersect  PVI  Sta) 

Grade  (to  PVI) 

V  C 

Grade  (From  PVI) 

Sta. 

Elev.  (Elev.  Must  be  given  for  PVI  after  Intersection) 

V  C 
Sta. 

Elev.  (The  -  Sign  moans  this  Elev.  Must  be  held) 

Odd  Station 
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Part  I 


n  !■.  0  !■’  I  Ii 


j-ii.  i:-  05 

r-atc  ihv.  13  1262 


'Tii 

svA'iio:: 

j'HA'ATIKJ 

V2K1’IC.M.  CJ.2V;.; 

0 

204. £5 

T 

-1. 0000 

.V;-99J:l.vi 

203.35 

300 

ti 

1.0300 

15.0150.00 

.llA-.lO 

1300  0  j)  ^33 

0 

J 

-3.0000 

155900.00 

113. .':0 

900 

4 

.0000 

159500.00 

131 -Co 

300  0  C  ’.Yl 

]/ 

-.5000 

1^2100.00 

llS.SO 

300 

f, 

.•^3:3 

Io2.'i50-Q0 

119.25 

CDiJ  £2 

'Al'XOH 

1 

.I'iOKv’i .  ’2 

0 

i;59VY.S 

*3 

•* 

15Y5^«- 33 

4 

150353.113 
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Part  n 


i/TAiiic,;-: 

•JllJViVIIOK 

cuiiVi: 

-l.OXO 

204.23 

l^OOOI.'X 

2;)J'.9o 

0.1;'J)1 

1.0300 

205.6!* 

1;-10X.00 

21!'.  23 

li^iJOO.OO 

2I9.IO 

V  C 

1300 

0  D 

221.11 

.liion 

ifinx'j.on 

220.63 

2.15. '55 

no:  ;u. 

2.26.10 

JI.C 

l'i2500.00 

2l!i.20 

152*500.00 

206.60 

CilUG 

-3.po.0o 

.■'■32000.00 

200.60 

13li.000.00 

r.^o.rio 

153000.00 

11(0. 0'O 

155650.00 

12.1.10 

V  c 

500 

135900.00 

i]5.'.'9 

r-/!'  n. 

.U3..60 

M  C. 

1  I  ♦ 

115.03 

136000.00 

il!i..80 

i;;6ovG.3'i' 

11!^.  (vr 

wi!  roLfr 

156150.00 

11';.  85 

GIVDE 

.5000 

15'/'00'0.00 

L19.10 

15';566.23 

121.93 

15000.0. 00 

lOii.lO 

159000.00 

1:'.>9.10 

159550.00 

.130.83 

V  c 

300 

.0  D 

1;>9300. 00 

1:1.23 

incii  roLTi? 

.159500.00 

I3J.23 

F/i ,  ;.x 

131.60 

M  C 

159650.00 

130.85 

0-l,\DE. 

-.5000 

LiO'OOO.OO 

ir>9.io 

160353.18 

12'r.33 

I'lroco.oo 

12!'.  10 

.1.'51550.00 

.•'.19.35 

V  c 

300 

i-’CO-OO.OO 

3J.o.l.'i 

l.'!.':;l;X.i>0 

U8.95 

m 

,llC.6o 

M  C 

16.0110.  •.! 

118.95 

La;  roiirr 

162250.00 

119.25 

o:v.B2 

.  A333 

162250,00 

119.25 

623 


2.19 


m 


-37 
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IlffiNTIFICATION 

Title:  Composite  Beams  -  Ident.  AX4.01 

Programmer:  (Lockwood,  Kessler  &  Bartlett,  Inc.),  September  I962 

1.  Description  of  Problem 

This  program  has  been  developed  to  design  Interior  or  exterior  steel 
beams  for  simple  span  highway  bridges.  Basically,  the  program  is 
divided  into  two  pairts.  The  first  part  computes  a  solution  for 
interior  beams;  the  second  part  computes  a  solution  for  fascia  or 
exterior  beams.  Bach  part  may  te  run  Independently  of  the  other.  Pro¬ 
vision  can  be  made  to  use  this  program  for  selecting  "built-up  sections" 
as  well  as  rolled  shapes. 

These  programs  store  the  properties  of  all  wide  flange  shapes  from  a 
30WF  108  to  a  38WF  300  inclusive,  together  with  various  combinations 
of  bottom  cover  plates.  These  stored  properties  are  the  cover  plate 
width,  cover  plate  thickness,  beam  depth,  beam  area  and  moment  of 
inertia  of  beams.  The  I60-A  Computer  automatically  tests  each  beam 
and  chooses  one  or  more  that  will  satisfy  the  design  criteria.  Since 
seversd  satisfactory  solutions  may  be  obtained  for  each  problem,  the 
engineer  may  base  his  final  selection  on  the  total  weight  of  beam  which 
is  one  of  the  output  items. 

2 .  Limitations 


The  span  length  must  be  greater  than  4o  feet. 

This  program  will  handle  "simple"  spans  only. 

This  program  does  not  have  the  provision  to  handle  a  top  cover  plate 
or  concrete  haunch. 

3.  Equipment  Affected 

CDC  160-A,  161 
Flexowrlter 
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4,  Memory  Allocation 


Loc  0046-0099 
0100-0611 
0612-1199 


Square  Root 
Interior  program 
Fascia  program 


1200-1245 

1246-1247 

1248-1279 

1280-1291 

1292-1299 

1300-1345 

1346-1347 

1348-1399 

1400-1445 

1446-1447 

1448-1499 

1500-1545 

1546-1547 

1548-1599 

1600-1645 

1646-1647 

1648-1699 

1700-1745 

1746-1747 

1748-1799 

1800-1845 

1846-1847 

1848-1865 

1866-1899 

1900-1945 

1946-1947 

1948-1999 


Beam  table  storage 
Alpha  storage 
Constants 
Fascia  program 
Fascia  program 
Beam  table  storage 
Alpha  storage 
Input  storage 
Beam  table  storage 
Alpha  storage 
Temporary  storage 
Beam  table  storage 
Alpha  storage 
Temporary  storage 
Beam  table  storage 
Constant 

Temporary  storage 

Beam  table  storage 

Constant 

Alpha  storage 

Beam  table  storage 

Constant 

Alpha  storage 

Fascia  program 

Beam  table  storage 

Constant 

Fascia  program 
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5. 


Procedure 


(1)  Margin  and  Tabs 

Margin  at  J.5 

Tabs  at  26,38,41,42.43,51,64,77,90,105 

(2)  Load  SI COM 

^3)  Establish  Typav/riter  I/O  Mode 

(4)  Mount  Pro  grata  Tane 

(5)  Type  520046/ 

Reads  Prograa  and  Stops 

(6)  Type  501348/ 

Enter  Input  Data  per  Input  Sheet 

(7)  When  Last  Input  Item  has  been  Intered 
Type  XOlOlOO/  for  Interior 
Calculations  or  X010612/  for  Fascia 
Calculation 


Notes ; 

1,  Prograa  Stops 

a)  If  all  the  stored  beams  are  tried  and  none  are 
satisfactory  or  if  only  two  are  satisfactory  and 
five  solutions  have  been  asked  for,  Che  computer 
will  print  "Exceed  Table". 


b)  If  the  ratio  of  the  span  in  inches  to  the  depth 

of  the  coQpooite  beam  is  greater  than  23 ,  the 

computer  will  print  "Too  Big  F/'. 

c)  If  the  ratio  of  the  span  in  Inches  to  the  depth 

of  steel  is  greater  than  30,  the  computer  will 

print  "Too  Big  F^’. 

d)  If  the  stringer  spacing  exceeds  14  feet,  the 
computer  will  print  "Too  Big  Mil"  and  halt. 

2.  The  number  of  solutions  per  problem  (now  set  at  5) 
may  be  changed  as  follows: 
a)  Interior  beams 

Change  location  0106  to  0  14  00  DR 
h)  Fascia  beams 

Change  location  0618  to  0  14  00  DR  where 
DR  equals  1  less  than  the  niimber  of  desired 
solutions. 

ie.  For  3  solutions  DR  »  02 
For  1  solution  DR  ■  00 
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3.  To  cooputc  for  a  specific  bees  size  (i.e.  to  keep 
fascia  depths  equal)  proceed  as  follovs: 

a)  Interior  beams 

Change  location  0108  to  1  12  00  DR 
OlII  to  2  02  00  DR 

b)  Fascia  bcaas 

Change  location  0620  to  1  12  00  DR 

0623  to  2  02  00  DR  where 
DR  is  the  "Line'*  corresnonding  to  the 
desired  beaia  (see  table). 

TABLE 


Line 

Beaa 

Line 

Beta 

Line 

Beaa 

00 

30WF108 

16 

36^^F160 

32 

33W220 

02 

30WF116 

18 

36W170 

34 

36WF230 

04 

30WF124 

20 

30WF172 

36 

33WF240 

06 

33V7F130 

22 

36WF182 

38 

36WF245 

08 

33WF132 

24 

30W190 

40 

36WF260 

10 

33WF141 

26 

36WF194 

42 

36W280 

12 

36WF150 

28 

33WF200 

44 

36UF300 

14 

33WF132 

30 

30UF210 

4.  Plate  Girder  Design  Procedure 
a)  Interior  girders 

1)  Change  coozsand  in  location  0106  to  0  04  0000 
(gives  single  solution) 

2)  Change  cocaand  in  location  0331  to  0  64  0333 
(will  not  print  DDWFDDD) 

_  3)  Enter  cover  plate  thickness  in  location 

1646  in  inches 

4)  Enter  cover  plate  width  in  location  1600 
in  inches 

3)  Enter  area  ofgirder  Ih  location  1300  in 
square  inches 

6)  Enter  depth  of  girder  in  location  1400 
in  'inches 

7)  Enter  tsoaent  of  Inertia  of  girder  in 
location  1300  in  inches 
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b)  Fascia  girder 

1)  Change  cocaand  In  location  0618  to  0  14  0000 
(gives  single  solution) 

2)  Change  coaaand  in  location  0924  to  0  64  0926 
(will  not  print  DDVff*DDD> 

Repeat  steps  (3),  (4),  (5),  (6),  and  (7)  if  fascia 
girder  is  not  the  same  as  the  interior  girders. 

c)  For  interior  and  fascia 

1)  Make  allowable  {slnimum  stress  low  (location 
1394  B  5.0)  and  allox'/able  maximum  stress  high 
(location  1396  »  50.0)  to  insure  typeout. 

Enter  cover  plate  thiclcness.  Change  location 
1246  to;  (3S)  (LC)  by  XXXX  where  XXXX  is  cover 
plate  thickness  (i.e.  XXXX  ■  1.25,  max.'  3 
numbers  and  decimal  point). 


2) 
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Job  No.  fl-HL  a  o  -5 
Date  _ j. 


COI^OSITE  BEAMS 

Bridge  7~Uvt,^  /Vae^K. 
By  _ BM  S~ _ 


Description 

Value 

Units 

A 

Cover  piste  lonrth  for  fascia:  (D 

liSSSSSSSSS 

IfUSfll 

c>.o 

i—i 

o. 

1350- 

a.j- 

IMBM' 

s 

1352 

ft. 

L 

Snap  Lonatl-. 

1354 

C.F.0 

ft.. 

d 

Slab  thickaaos 

1356 

1-0 

in. 

X 

Effective  slab  TJT 

/y.  f 

in. 

h 

I'05''’ht  nf  stud  shear  copnoctors 

‘f.O 

in. 

Z 

ikstio  of  stress  16/18 

1362 

•  itt»  f 

FS 

TJO 

5.0 

• 

f 'c 

Ultimata  concrete  stress 

1366 

Joe  c,  0 

'mmim 

n 

1368 

/o.  0 

- 

i 

Diameter  of  shear  connectors 

1370 

.  7J- 

in . 

Msmm 

lEHSi 

a  F-  0 

Et. 

KjS 

J13HBKCTB2CT!OT5M>I 

IHrai 

.  9<- 

■IuXh 

bshshi 

0.  0 

■RMl 

\'j 

Siclc^;nlU  ui.dch 

tmmm 

ft. 

(■) 

iiiriM 

o>  0 

ft. 

D 

(X’orhane  bavend  C/L  of  Faccia 

1382 

3.jr 

ft. 

H9HH1 

S’oO 

• 

HflHI 

KSM 

3,0 

HB9Hi 

■KHIil 

HHgaM; 

0-  0 

w 

Uci<>ht  of  rail  ins 

HEH 

■  OS' 

!MC!— 1 

m 

/.  0 

HHBHH 

Rism 

S-.O 

injjjj 

KL«B*«r9KleMiZ^BiKC3^B3373i¥£^BV>^^^t7s7^ 

Rsm 

/F.S- 

msBPm 

1398  1 

ho 

■!T^— 

1.  For  full  length  plate  enter  1.  ;  for  computed  length  plate 
enter  0. 

2.  Seiallcr  of  following:  1/4  of  span,  center  to  center  of  beams 
or  12  times  slab  thickness. 

3.  Can  be  0,  1,  2,  or  3. 

4.  For  spirals  enter  1;  for  studs  enter  2. 
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1^3 


520046/ JOisW/O.O 

2.5 

6.25 

68.0 

7.0 

84.0 

4.0 

.88889 

2.0 

3000.0 

10.0 

.75 

28.0 

.96 

0.0 

5.0 

0.0 

2.5 

5.0 

3.0 

0.0 


.05 

1.0 

5.0 

18.5 

1.0 

xOlOlOO/ 


INTERIOR 

BEAM  SIZE 

PLATE  SIZE 

TOP  STRESS 

EOT  STRESS 

con  STRESS 

PIi  lEXiCIS 

36WFI7O 

14  m. 

14.233 

18.226 

.701 

49.556 

TENTHS 

.000 

.100 

.200 

.300 

.400 

.500 

POIKS 

.000 

6.800 

13.600 

20.400 

27.200 

34.000 

SHEARS 

76.564 

66.183 

55.803 

45.423 

35.043 

24.662 

SPACING 

5.560 

6.432 

8.418 

10.342 

IS.'tOS 

19.047 

CAI-IHSE5  1.346 
ALOW  DEFL  1.020 
ACT  DSFL  .594 
WI3GST  14.084 

FINIS 
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X010612/ 


FASCIA 

£EAM  SIZE 

PLATE  SIZE 

TOP  STRESS 

EOT  STRESS 

COS  STRESS 

PL  LaOTB 

36wn.50 

lU  sn. 

IU.316 

18.103 

.678 

50.668 

TE'JTHS 

.000 

.100 

.200 

.300 

.400 

.500 

Pounds 

.000 

6.800 

13.600 

20.1^00 

27.200 

34.000 

SHEARS 

71.121 

61.372 

51.622 

41.873 

32.123 

22.374 

SPACIKO 

5.S10 

6.733 

d.891 

10.961 

14.288 

20.514 

CAl-SBER 

1.U29 

ALOV  LEFL 

*  1.020 

ACT  DETL 

.539 

WEIGHT 

12.771 

Fms 


8.  References 

a)  Araerican  Association  of  State  Highway  Officials  (AASHO) 

b)  Steel  Construction  Manual  of  the  Aoerlcaa  Institute  of 
Steel  Construction  (AISC) 
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K5. 

IDENTIFICATION 

Title:  Horizontal  Adjustment  -  Ident.  AK5.OI 

Programmer:  (Lockwood,  Kessler  &  Bartlett,  Inc.)>  November  I962 

I.  Statement  of  Problem 

It  is  desired  to  obtain  map  or  grid  coordinates  of  photogrammetrlc 
points,  namely  the  horizontal  pass  points,  as  the  results  of 
stereotrlangulation . 

The  map  coordinates  of  horizontal  control  points  are  given.  The  instru¬ 
ment  coordinates  of  the  control  points  and  the  pass  points  are  observed 
for  a  triangulated  strip  of  controlled  photography. 

Two  basic  transformation  equations  expressed  in  the  form  of  a  polynomial 
of  a  second  degree  are  based  on  the  ^theory  of  errors  by  Army  Map  Service, 
The  coefficients  of  the  equations  are  detemined  by  the  method  of  least 
squares  for  the  given  map  cooirdinates  and  the  observed  instrument 
coordinates  of  the  control  points. 

The  map  coordinates  of  pass  points  on  the  strip  are  then  computed  by  the 
transformation  equations  for  the  observed  instrument  coordinates. 

II.  Limitations 

1.  The  number  of  horizontal  control  points  (CP)  on  a  strip  shall  not 
be  less  than  3  or  more  than  4o. 

2.  An  infinite  number  of  horizontal  pass  points  (PP)  on  the  strip  may  be 
processed  in  groups  of  200  or  less  at  a  time. 

3.  The  X  and  Y  map  coordinates  may  range  from  0  to  10,000,000.00  units. 

U.  The  instrument  x  and  y  coordinates  may  range  from  0.01  to  100,000.00 
units. 

5.  The  instrument  x  and  y  coordinates  can  not  be  zero  and  the  y 
coordinates  can  not  be  negative  values. 

6.  A  maximum  number  of  50  control  points  in  any  order  may  be  entered 
at  a  time  to  eliminate  or  to  restore  the  previous  data  for  the 
analysis  of  residuals. 


♦Photogranmetric  Engineering,  Sept.  1953»  P*  627 
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7.  Identification  numbers  of  pass  points  may  range  from  1  to  9999 > 
starting  txcm  any  number  for  first  pass  point  and  In  numerical 
sequence  for  others. 

Ill .  Accuracy 

The  error  of  computed  map  coordinates  will  be  less  than  1  0.003  units. 

IV .  Equipment  Affected 

CDC  160-A 
CLC  161 
Flexowriter 


V .  Memory  Allocation 


0200  -  0649 

0700  -  0753 
0754  -  0759 
0760  -  0761 
0766  -  084l 
1000  -  1099 
1200  -  1999 
1600  -  1999 


Program 
Alpha  Storage 
Punch  s/r 
Coeff. 

Temporary  Storage 
Tenq)orary  Storage 
Input  Storage  of  PP  Data 
Input  Storage  of  CP  Data 


0200  -  0761 


Program  Tape 
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VL  Description  of  Input  Data 
Control  Points: 

The  information  of  control  points  consists  of  the  identification, 
instrument  coordinates  and  map  coordinates  for  each  point. 

A  sequence  of  the  control  points  can  be  in  any  order. 

1  Alpha-numeric  identification  of  a  control  point, 
up  to  8  characters 

X  Instrument  :  coordinate  in  the  direction  of  triangu¬ 
lation 

y  Instrument  y  coordinate 

y  Map  coordinate  in  feet  or  meters;  northing 

X  Map  coordinate  in  feet  or  meters;  easting 

The  above  input  data  can  be  prepared  on  a  CDC  Flexowriter 
or  entered  through  the  typewriter  161  according  to  the  follow¬ 
ing  format. 

:  I^  tab  xj  tab  yj  tab  Yj  tab  Xj  CR 


:  k  . 

/ 

Pass  Points: 

The  information,  of  pass  points  consists  of  the  instrument 
X  and  y  coordinates  for  ea<:h  point.  A  sequence  of  the  pass 
points  can  be  also  in  any  order. 

X  Instrument  >  coordinate  of  a  pass  point  in  the  direction 
of  triangulation 


y  Instrument  >  coordinate 
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The  input  delta  of  pass  points  will  be  prepared  on  the 
CDC  Flexowriter. 

*1  tab  Yi 
X2  tab  Y2 


• 

Xj  tab  y 
/J  j 

An  identification  number  of  first  pass  point  will  be  entered 
through  the  typewriter  I6I  at  the  time  when  the  information 
of  the  pass  points  is  processed.  The  identification  numbers 
of  other  pass  points  will  be  in  numerical  sequence.  The 
numbers  may  range  from  1  to  9999. 


CR 

CR 


CR 


VIL  Description  of  Output  Data 

The  information  of  output  data  consists  of  three  parts. 

Part  one  is  the  listing  of  control  points.  Part  two  is  the 
computation  of  residuals.  Part  three  is  the  computed 
coordinates  of  pass  points. 

The  final  output  data  of  pass  points  may  be  listed  through 
the  typewriter  161  or  they  may  be  punched  on  the  Flexowriter 
tape. 
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Vin.  Operating  Procedure 

1.  Margin  and  tabs 

(1)  Margin  at  20 

(2)  Tabs  at  27,  38,  50,  65,  80,  90  and  95 

(3)  Paper  at  0 

2.  Ixiad  Sicom 

3.  Place  the  program  tape 

4.  Input  mode  ? 

(1)  Plex  input  (1  light),  go  to  step  5 

(2)  Type  input  (2  lights),  11/  to  read  the  program 
and  go  to  step  6 

5.  Cycle  Run  (to  read  the  program)  (Stop  3) 

Control  Points 

6.  Jump  switch  1 

(1)  On  for  type  input  of  CP  data,  go  to  step  7 

(2)  Off  for  Flex  input  of  CP  tape,  go  to  step  8 

7.  Type  in  CP  data  (1600-1998) 

1  tab  X  tab  y  tab  Y  tab  X  CR 


Type  /  after  the  last  CR  (Stop  4) 
Place  new  page  and  go  to  step  10 

8.  Place  CP  tape 

9.  Cycle  Run  (to  read  the  CP  tape) 

10.  Output  of  CP  data  (stop  3) 

Types;  jp  sw  2  on  to  pp 
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Pvasiduala 

11.  Jump  switch  2 

(1)  On  to  compute  PP  data,  go  to  etep  1$ 

(2)  Off  to  eliminate  CP 

12.  Cycle  lUin 

Types:  type  cp  nos. 

13.  Type  CP  Nos.  in  any  order  (CP  »  1  to  40) 

•  CP.  tab  (to  eliminate) 

CP.  tab  (to  restore) 

Type  /  after  the  last  tab  or  CR 

14.  Output  of  residuals  (stop  3) 

Types  :  jp  sw  2  on  to  pp 
Repeat  from  step  1 1 

Pass  Points 

15.  Cycle  Run 

Types:  jp  sw  2  on  to  tape  output 
place  pp  tape  type  Ist  pp  no. 

16.  Place  PP  tape 

17.  Type  in  1st  PP  No.  (4  digits  or  less) 

PPPP.  tab  /  (stop  3) 

18.  Jump  switch  2 

(1)  On  for  Flex  output,  pui^h  on  and  go  to  step  19 

(2)  Off  for  type  output,  go  to  step  21 

19.  Cycle  Run  (to  read  the  PP  tape) 

20.  Output  of  PP  data  (stop  4) 

Go  to  step  25 

21.  Stop  switch  1  (for  type  output) 

(1)  On  to  stop  at  25th  PP  per  page 

(2)  Off  to  ignore  25th  PP 

22.  Place  tracing  paper  and  double  CR 
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Srjaiplc 

Control  Point  D.itr; 

I 

V 

r 

X 

i2  21 

233‘*.23 

270.23 

955740.97 

195548.41 

;2  20  a 

2250.20 

359.93 

936670.51 

195028.90 

t2  20  b 

2271.63 

^96.72 

956746.00 

195414.17 

;2  pp  5 

2252.78 

*^36.79 

937065.07 

195445.13 

;2  PP  6 

2226.51 

269.1U 

936122.43 

194678.63 

|1  09 

2093.61 

421.20 

937539.37 

194406.11 

;l  oa 

1988.71 

400.92 

937841.39 

193714.84 

;1  07 

1855.23 

411.30 

938337.48 

192899.16 

;1  06 
/ 

1710.50 

388.03 

938709.78 

191917.34 

Paasi Point  Data 


X 

y 

2372.28 

401.58 

2372.16 

417.11 

2334.28 

270.23 

2226.51 

269.14 

2237.35 

350.72 

2250.20 

359.98 

2271.63 

596,72 

2230.77 

403,89 

2252.78 

456.79 

2243.59 

518.85 

2095.89 

409.00 

2093.61 

421.20 

2108.84 

271.06 

2109.53 

517.83 

1970.66 

415.54 

1980.71 

4o8.92 

1960.70 

313.58 

1965.99 

526.53 

1851.62 

515.15 

1830.57 

405.71 

1655.23 

411.30 

1859.87 

533.63 

1717.96 

513.00 

1721.47 

407.00 

1710.50 

388.03 

/ 
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CP 

y 

y 

X 

1 

233^.28 

270.23 

93571^.97 

1953-‘'8.1a 

2 

2230.20 

355.?^ 

936670.51 

195023.90 

3 

2271.63 

S6.72 

9367^:6.00 

195414.17 

h 

2252.78 

436.79 

937:^3.07 

195445.13 

5 

2226.51 

269.14 

936122.43 

294678.63 

6 

2<^3.61 

421.20 

937539.37 

1944C6.U 

7 

1$88.71 

403.92 

937841.29 

193714.84 

8 

1855.23 

411.30 

938337.43 

192699.16 

9 

1710.50 

388.03 

938709.78 

193917.34 

CP 

r 

X 

Beslduals 

1 

.71* 

-1.52 

2 

21 

2 

•.69 

-.02 

2 

20  a 

3 

1.02 

8.65 

2 

20  b 

k 

-.95 

-.10 

2 

K?  5 

5 

.38 

.10 

2 

pp  6 

6 

.24 

.29 

1 

C9 

7 

-.11 

-.65 

1 

C8 

8 

-1.79 

-1.69 

1 

07 

9 

1.20 

1.00 

1 

C6 

Jp  ow  2 

oa  to  pp 

/ 

typo  op 

S09.  -3. 

-i 

5. 

1 

,kh 

-51 

2 

21 

2 

-.51 

.39 

2 

20  a 

J 

4 

-.40 

.35 

2 

PS>  5 

5 

.15 

.61 

2 

P?  6 

6 

.45 

.03 

1 

7 

-.20 

-i.ie 

1 

03 

6 

9 

.10 

.33 

1 

06 

jp  ov  2 

on  to  pp 

JF  sv  2  00  to  t«pe  outFUt 

place  PF  tape  type  1st  pp  no.  I.  /  1 


i 
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Sunple  Octpoi 


p? 

= 

2:“ 

- 

1 

2372.  £3. 

4ci.:a 

C  .'i' 

156056.05 

2 

2372.16 

417.11 

936510.43 

196IU.36 

3 

233li.23 

270.23 

955741.41 

195347.89 

2226.51 

269.14 

936022.58 

194679.24 

5 

2237.33 

350.72 

936587.07 

195040.06 

6 

2230.20 

359.93 

9366^.99 

195029.29 

7 

2271.63 

396.72 

936747.40 

195417.42 

8 

2230.77 

403.^ 

936938.96 

195191.02 

9 

2252,78 

436.79 

937062.66 

195445.48 

10 

2213.59 

513.85 

9rt6os,Z[ 

195684.44 

U 

2095.^ 

4<9.C0 

937456.26 

194376.35 

12 

2093.61 

421.20 

937539.82 

194406.14 

13 

2103.84 

271.06 

936557.71 

193960.12 

01 

2109.33 

517.83 

938079.33 

194352.15 

15 

1970.66 

415.54 

937946.95 

193625.83 

16 

1938.71 

408.92 

937841.18 

193713.65 

17 

1968.70 

313.58 

937323.80 

193247.55 

08 

1963.99 

526.53 

938656.94 

193983.15 

09 

1851.62 

313.15 

937753.45 

192529.58 

ao 

1338.37 

405.71 

938361.05 

192772.34 

21 

1855.23 

411.30 

9^335.16 

192896.70 

22 

IB59.87 

533.63 

92?075.04 

I93364.U 

23 

1717.96 

513.00 

939456.61 

1924U.22 

2l 

1721.47 

407.00 

938788.01 

192053.49 

25 

1710.30 

3SS.O3 

9387(9.88 

191917.67 
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K6. 


lEEBTIFICATION 

Title:  Soil  Consolidation  Ident  AK6.01 

Programmer:  (Lockwood,  Kessler  &  Bartlett,  Inc.),  October  I962 

1.  Description  of  Problem 

This  program  computes  the  settlement  of  "n"  layers  of  soil  with  a  maximum 
of  4  layers  and  a  surcharge  load  placed  in  "n"  number  of  lifts  which  could 
be  totally  or  partially  removed. 

The  program  will  also  compute  the  settlement  of  each  layer  at  various 
Intervals  of  time  after  removal  of  surcharge. 

A  maximum  of  6  offset  points  per  station  can  be  entered  as  input  and  the 
settlement  due  to  the  consolidation  of  the  soil  at  each  point  under  the 
offsets  can  be  computed. 

The  program  provides  alphanumeric  identification  and  column  headings. 

2.  Limitations 

A  maximum  of  U  different  layers  of  soil  can  be  entered  per  each  offset. 

A  maximum  of  6  offsets  can  be  entered  per  station. 

Six  Pn  and  Cv  values  must  be  entered  per  each  layer.  If  the  laboratory 
data  is  applicable  to  more  than  one  station,  the  test  codes  in  the  input 
may  be  set  eq.uaQ.  and  the  data  should  not  be  repeated. 

All  input  is  via  flexowriter  tape. 

3.  Equipment  Affected 

CDC  160-A,  161 
Flexowriter 
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1.  Description  of  Problem 

This  program  computes  the  settlement  of  "n"  layers  of  soil  with 
a  maximum  of  4  layers  and  a  surcharge  load  placed  in  "n"  number 
of  lifts  which  could  be  totally  or  partially  removed. 

The  program  will  also  compute  the  settlement  of  each  layer  at 
various  intervals  of  time  after  removal  of  surcharge. 

A  maximum  of  6  offset  points  per  station  can  be  entered  as  input 
and  the  settlement  due  to  the  consolidation  of  the  soil  at  each 
point  under  the  offsets  can  be  computed. 

The  program  provides  alphanumeric  identification  and  column 
headings. 

2.  Limitations 


A  maximum  of  4  different  layers  of  soil  can  be  entered  per 
each  offset.  A  maximum  of  6  offsets  can  be  entered  per  station. 

Six  Pn  and  Cv  values  must  be  entered  per  each  layer.  If  the 
laboratory  data  is  applicable  to  more  than  one  station,  the  test 
codes  in  the  input  may  be  set  equal  and  the  data  should  not  be 
repeated. 

All  input  is  via  flexowriter  tape. 


3.  Equipment  Affected 

CDC  160-A,  161 
Flexowriter 
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4.  Memory  Allocation 


0000-0081 

Sin-cos  s/r 

0082-0171 

Log  10  X  s/r 

0172-0235 

10*  s/r 

0236-0311 

Arctan  s/r 

0312-0333 

Station  type  out  routine 

0334-0355 

Integration  routine 

0356-0394 

Series  routine 

0395-0422 

Interpolation  routine 

0423-0451 

Delta  routine 

0452-0459 

Weight  routine 

0460-0499 

Conversion  routine 

0500-0549 

Alpha  storage 

0550-0599 

Temporary  storage 

0600-0974 

Program 

1500-1599 

Permanent  storage 

1700-1955 

Input  storage 

1978-1999 

Routine  storage 

5.  Operating  Procedure 

(1)  Margin  and  tabs 

Margin  at  20 
Every  other ‘tab  down 
Output  paper  at  10 

(2)  Load  Sicom 

(3)  Place  the  program 

(4)  Establish  typewriter  input  mode 

(5)  Type 

52  0000  / 

Reads  the  program  and  stops 

(6)  Place  Flexowriter  input  tape 

(7)  Type 

xOl  0600  / 

Reads  the  data  tape  and  computes 

6,  Description  of  Input  and  Output 

Job  number  and  test  number  are  entered  as  one  alpha  word. 
Date  is  entered  as  two  alpha  words. 

Computation  time  is  approximately  3  minutes  per  offset  with 
typewriter  output. 
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SOIL  CONSOLIDATION 
INPUT  PORM 


/FIELD  NO.  3(NUMERIC.  MAX  10  016ITS) 


6os«  Width  of  tufohofgo  of  ioft  of  ctnforlino  (aoq) 
6d««  Width  of  turchoroo  of  right  of  ooMhriiAo  ( ooi ) 
Si  do  Slooo  {%) 

Hoight  of  lift 

Unit  weight  of  turchorgo 

Voioi  number  of  liftt 

Number  of  lifte  left  in  gloce 

Oromoge  condition  code 

Time  mfervol  of  eurchorge  plocement 

Time  intervol  from  MT  to  Mi. 


/  FIELD  NO.  ^{NUMERIC.  MAX  10  OJGiTS)  Ne^lve  to  the  loft  of  oenterllne  _ 

Offeet  !• _ _ _ m;  OffietOp^  |~  I  D(  "'I 

OffsetZ- _ r.3b.  m;  OffietS' _ | _  m; 

OffeelS* _ -  '/jo.  m;  Off»elSi_  _ ]  _  *"1 


/FIELD  NO.  5  (NUMERIC,  MAX  7  DIGITS)  Negotive  below  i 
Offeet  I  Offeet  2  Offeet  I 


Jj.--.  . . A, jo... 

.  I  .....0 - ..-n. 

...  joj.  / - 

-1^ - 4r|/.;=. 


/FIELD  NO.  6  (NUMERIC,  MAX  10  DIGITS) 


UNIT 
tone/m  • 

ft*/teni 
tone/eq.ft 
tone/eq.ft 
tone/eq.ft. 
tone/eq.ft. 
tone/eq.ft. 
ione/iq.fl. 
lonc/eq.ft. 
(em*/oec)  10** 
(cm*Aec)  10‘* 
(em»Aec)  I0‘* 
(cm«/bed  »•* 
10-* 

fcm«rtoc)  \0-* 


m;  length  of  Oromogo  Foth 
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WPOWHITP  TAPI  PHPAamrcw 


Field  No  / 

;  9156-44  O08 

Fi£.ld  He  3^ 
/IOO5O.OO  STATiOM 

/-52.  L, 

52. 

.5 

1.  Hf 

128.  /’/r 

6,  >7  T 

4.  Me 

2.  /V  X 

1.  tc 


;Oct.  19  1962  Oats 
lul-77  Tesr  CooE 


12. 

Field  No  / 

/-50.  / 

^/£tO  /Vo  ^ 

/o*  2, 


-30.  .10.  OFF  3  10.  y  30.  ef/=5-  50.  OFF  6 


plli.iT  oFFScT 


Z.  I  .£  StOONO  OFFSET 


8  February  1963. 


4-219 


«-(L)-993 


courwue 


FIE.LD  No  £> 
./  2.  tsriAm 


.67  * 

.19  Cc.  « 

.256  " 


FttLO  No  S" 


TMteO  0Pf&6T 


/-r 


pousTH  OFpser 


.g-  Fifth  Oppsef 


SIXTH  oFFseT 

■S 


2.  ^ ;  210  UtreF  g.  310 Uff^  2.  ^  /  V 


75 

«* 

♦  .88 

‘i.  » 

.9 

e*. 

2 

"  .59 

Cc  ' 

.44 

256 

•  '  .27 

^0  " 

.29 
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CCNT/UQE. 

P/CLO  A/®  6 

LAVE/Z  3 

lays^  y 

uA'/tn.  / 

.512  P, 

cAvce  a 

.512 

.512 

.512 

.768  P:, 

.768 

.768 

.768 

1.024  Pj 

1.024 

1.024 

1.024 

2.0U8  P / 

2.048 

2.048 

2.048 

4.096  Pi- 

4.096 

4.096 

4.096 

8.19a  Pi 

8.192 

8.192 

8.192 

99.5 

99.5 

95.3 

106.1 

48.2  C 

48.2 

105.36 

122.5 

52.19  3 

52.19 

127.10 

149.7 

156.78 

156.78 

165.24 

156.8 

149.66 

149.68 

159.56 

161.5 

140.52  C''<> 

140.52 

U3.88 

168.7 

Rif6f»r  A* 

P/£LD  fje  P,  /eoR, 

eNO  tepe 

/  CXW.OO  5  rATlON 
/ 


BNP  OF  HeLO  «ODe~ 
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xOXOCOO/ 


J03  Ni  % 56-44 


DAIS  Oct.  19  ^62 


SOIL  C 

ONSOLILATION 

TEST  n2  ui-rr 

STATION  -  100  +  50.00  OFFSET^ 

SETTLEMENT 

AT 

TIME  OF  REMOVAL  OF 

SURCHARGE 

LAifER  N2 

1 

settlement  - 

.799 

UyER  Ni 

2 

SBTTLEMEirc  - 

.028 

LtXER  N- 

3 

s2m£MEiin?  • 

.376 

SETTLEMENT 

AT 

TIME  -  12  MONTRS 

AFTER  REMOVAL  OF  SURCHARCE 

LAXER  NA 

1 

SETTLEMENT 

- 

.800 

LAXER  NS 

2 

SETTLEMEI/T 

■ 

.029 

LAXER  tJS 

3 

SETTLEMENT 

a 

.385 

SETTLEMENT 

AT 

TIME  =  24  MONTHS 

APTIR 

REMOVAL 

OF  SURCHARCE 

LAXER  I{2 

1 

SETTIUENT 

m 

.800 

LAXER  Nl 

2 

SETTLEMENT 

m 

.029 

LAXER  N2 

3 

SETTLEMENT 

■ 

.385 

SETTLEMENT 

AT 

TIME  -  48 

MONTHS 

AFTER 

REMOVAL 

OF  SURCHARGE 

LAXER  Ni 

1 

SETTLEMENT 

a 

.800 

LAXER  N2 

2 

SETTLEMENT 

m 

.029 

LAXER  N2 

3 

SETTLBIENT 

- 

.385 

SETTLEMENT 

AT 

TIME  -  96  MONTHS 

AFTER 

REMOVAL 

OF 

surcharge 

LAXER  N2 

1 

SETTLEMENT 

. 

.800 

LAXER  N2 

2 

SETTLEMENT 

•« 

.029 

LAXER  N2 

3 

SETTLEMENT 

“ 

.385 

SETTIEMEHT  AT 

TIME  -  192 

MONTHS  AFTER 

REMOVAL 

OF 

SURCHABGS 

LAXER  N2 

1 

SETTLQOT 

. 

.800 

LAXER  N2 

2 

SETTLEMENT 

■ 

.029 

LAXER  Ki 

3 

SEroiOffiNT 

m 

.385 

50.000  ZST 
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TBST  Nt  U1-T7  STAPICW  -  lOO  +  50*00  OFFSET  -  3O.OOO  lEFP 


SETTUMEET 

AT 

TIME  OF  ROfOVAL  OF  SURCHARCB 

ucm. 

1 

SETTUOffiNT 

- 

.800 

LAm  NS 

2 

SETTIOlEinJ 

m 

.001 

LATTER  NS 

3 

SETTLEMENT 

m 

.001 

SETTLEMENT 

AT 

TIME 

12 

MONTHS  AFTER  RQICVAL  OF  SURCHARGE 

LAYER  NS 

1 

SETTLEMENT 

.800 

LAYER  N* 

2 

SETTLEMENT 

a 

.001 

LAYER  NS 

3 

SETTLEMENT 

■ 

.001 

SETTLEI-IENT 

AT 

TIME  =» 

24 

MONDIS  AFTER  REMOVAL  OF  SURCHARGE 

LAYER  NS 

1 

SETTLEMENT 

« 

.800 

LAYER  NS 

2 

SETTLEMENT 

ar 

.001 

LAYER  NS 

3 

SETTLEMErrr 

a 

.001 

SETTLEMENT 

AT 

TIME  * 

48 

MONTHS  AFTER  REMOVAL  OF  SURCHARGE 

LAYER  NS 

1 

SETTLEMErn: 

.800 

LAYER  N* 

2 

SETTLEMEINT 

a 

.001 

LAYER  NS 

3 

SETTLQIENT 

a 

.001 

SETTLEMENT 

AT 

TIhE  = 

96 

MONTHS  AFTER  REMOVAL  OF  SURCHARGE 

LAYER  NS 

1 

SETTL^WENT 

m 

.800 

LAYIR  NS 

2 

SETTLEMENT 

M 

.001 

LAYIE  NS 

3 

settlement 

m 

.001 

SETTIEMErff 

AT 

time  *  192 

MOTORS  AFTER  R^VAL  OF  SURCHARGE 

LAYIR  NS 

1 

SETTLEMENT 

m 

.800 

LAYER  NS 

2 

SETTLEMENT’ 

m 

.001 

LAYER  NS 

3 

SETTLEMENT 

- 

.001 
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TEST  NS  ul-77  SimON  -  100  •f  5O.OO  GSTSSS  -  10.000  XST 


SETTLE34ENT 

AT 

TIME  OF  REMOVAL  OF  SURCHARGE 

LATER  NS 

1 

SETTIEMENT 

m 

.082 

LATER  NS 

2 

SETTLEMENT 

m 

LATER  NS 

3 

SETTIEMENT 

■ 

.004 

SETTLEMENT 

AT 

TIME  - 

12 

MONTHS  AFTER  REMOVAL  OF  SURCHAROB 

LATER  NS 

1 

SETTLEMEtW 

m 

.082 

LATER  NS 

2 

SETTLEMENT 

m 

.115 

LATER  N*- 

3 

SETTIEMENT 

m 

.004 

SETTLEt-ENr 

AT 

TIME  - 

24 

MONTHS  AFTER  REMOVAL  OF  SURCHARGE 

LATER  NS 

1 

SETTLEMENT 

• 

.082 

LATER  NS 

2 

SETTLEMENT 

.115 

LATER  NS 

3 

SETTUMENT 

• 

.004 

SETTLEMENT 

AT 

TIME  - 

48 

MONTHS  AFTER  REMOVAL  OF  SURCHARGE 

later  ns 

1 

SETTIEMENT 

m 

.082 

LATER  NS 

2 

SETTUMENT 

m 

.115 

LATER  NS 

3 

SETTIEMENT 

m 

.004 

settlement 

AT  . 

TIME  - 

96 

mqnth;^  after  rsioval  of  surcharge 

LATER  NS 

1 

SETTLEMENT 

m 

.082 

LATER  NS 

2 

SEXTIEMENT 

m 

.115 

LATER  NS 

3 

SETTIEMENT 

• 

.004 

SEXTIEMENT 

AT 

TIME  -  192 

MONTHS  AFTER  REMOVAL  OF  SURCHARGE 

LATER  NS 

1 

SETTIEMENT 

m 

.062 

LATER.  NS 

2 

SETTLEMENT 

m 

.115 

LATER  NS 

3 

SETTLEMENT 

m 

.004 
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TEST  N-  ul-77 

STATION 

100  +  50.00  OFFSET  •  10.000 

SETTI£M£3ir 

AT 

TIME  OF  REMOVAL  OF  SURCHARGE 

LATER  Jfi 

1 

SETTLEMEm 

- 

.000 

LATER  NS 

2 

SEI^LEMENT 

a 

.000 

LATER  NS 

3 

SETTLEMENT 

- 

.000 

SErTLEMENT 

AT 

TIME  = 

12 

MONTHS  AFTER  REMOVAL  OF  SURCHARGE 

LATER  Ni 

1 

SETTLEt<lENT 

a 

.000 

LATER  N4 

2 

SETTLEMENT 

a 

.000 

LATER  NS 

3 

SETTIEMENT 

a 

.000 

SErTTLEa^ENT 

AT 

TIME  - 

24 

MONTHS  AFTER  REMOVAL  OF  SURCHARGE 

LATER  N* 

1 

SETTLEMEIW 

a 

.000 

LATER  N* 

2 

SETTLEMENT 

a 

.000 

LATER  NS 

3 

SETTLEMENT 

a 

.000 

SETTLEMENT 

AT 

TIME  = 

48 

MONTHS  AFTER  REMOVAL  OF  SURCHARGE 

LATER  NS 

1 

SETTLEMENT 

s 

.000 

LATER  NS 

2 

SETTIEMENT 

a 

,000 

LATER  NS 

3 

SETTIEME3IT 

a 

.000 

RIGHT 
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TEST  N2  ui.77  BEJaiOS  -  XOO  -1-  5O.OO  GFFSSS  -  30.000  HIGBr 


ssnisMsm  AT  time;  of  ksw/l  of  surcsurgb 

LAISK  Ni  1  SETTLBMHn:  ■  ,000 

LAHS  H-  2  SEaiTLSMEZn  ■  .000 

LAIZS  N-  3  S£!ITI£ME2n;  -  .000 


SETTLEMENT 

AT 

time  - 

12 

LAIER 

NS 

1 

SETTLEMENT 

LAYER 

NS 

2 

SETTLEME3R! 

■ 

LAYER 

NS 

3 

SETTLEMENT 

a 

SETTLEMENT 

AT 

TIME  ■ 

24 

LAYER 

NS 

1 

SETTLEMENT 

a 

LAYER 

NS 

2 

SETTLEMENT 

a 

LAYER 

NS 

3 

SETTLEMENT 

a 

SETTIEMENT 

AT 

TIME 

48 

LAYER 

N* 

1 

SFTTLEMENT 

a 

LAYER 

NS 

2 

SETTLEMENT 

a 

LAYER 

NS 

3 

SETTIEMENT 

a 

SETTLEt'IENT 

AT 

time  ■ 

96 

LAYER 

NS 

.1 

SETTLEMESIT 

a 

LAYER 

NS 

2 

SETTIEMENT 

a 

LAYER 

NS 

3 

SETTIEMEOT 

a 

SETTLEMENT 

AT 

time  - 

192 

LAYER 

NS 

1 

SETTIEMENT 

a 

LAYER 

NS 

2 

settlement 

a 

LAYER 

NS 

3 

S£TTI£MENT 

a 

MONTHS  AFTER  REMOVAL  GF  SURCHARGE 

.000 

.000 

.000 


l^NTKS  AFTER  RQSCVAL  OF  SURCHARGE 

.000 

.000 

.000 


MONTHS  AFTER  REMOVAL  OF  SURCHARGE 

.000 

.000 

.000 


MONTHS  AFTER  REMOVAL  OF  SURCHARGE 

.000 

.000 

.000 


MONTHS  AFTER  ROiOVAL  OF  SURCHARGE 

.000 

.000 

.000 
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TEST 

Hi 

u\-77  sfijaias  - 

100  +  50.00  QETSST  - 

50.000  RZaBT 

SETTLSMSOT 

!  AT 

TIMS  0? 

REMOVAL  0?  SORCKASaS 

LAYEK 

K2 

1 

6EITLS24SNT 

m 

.000 

LATER 

Ni 

2 

SSTTLSMSm! 

m 

.000 

LAXER 

N2 

3 

SSTTLEKEIIT 

- 

.000 

LATER 

N2 

h 

SETTLEMENT 

m 

.022 

SETTLEMEirr 

AT 

time  “ 

12 

MONTHS  AFTER  REMOVAL  OF  SURCKAROE 

LATER. 

N2 

1 

SETTLEMENE 

■ 

.000 

LATER. 

N2 

2 

SETTLEMENT 

ai 

.000 

LATER 

Ni 

3 

SETTLEMENT 

_■ 

.000 

LATER; 

NS 

4 

SETTLEMENT 

.022 

SETTLEMENT 

AI 

TIME  « 

24 

MONTHS  AFTER  REMOVAL  OF  SURCHARGE 

LATER 

NS 

1 

SETTLEMENT 

m 

.000 

UTEK 

NS 

2 

SETTLEMENT 

m 

.000 

LATER. 

NS 

3 

settlement 

m 

.000 

LATER 

N2 

4 

SETTLEMENT 

m 

.022 

SETTIEMENT 

AT 

TIME  - 

k8 

MONTHS  AFTER 

REMOVAL 

OF 

SURCHARGE 

later 

NS 

1 

SETTLEMENT 

m 

.000 

LATER 

NS 

2 

SETTLEMENT 

m 

.000 

LATER 

NS 

3 

SETTLEMENT 

m 

.000 

LATEl^ 

NS 

4 

SETTI^MENT 

■ 

.022 

SETTZEMENT 

AT 

TIME  « 

96 

MONTHS  AFTER 

REMOVAL 

OF 

SURCHARGE 

LATER 

NS 

1 

SETTLEMENT 

• 

.000 

LATTSi 

NS 

2 

SEXTl^MENT 

m 

,000 

LATER 

NS 

3 

SETTLEMENT 

m 

.000 

LATER 

NS 

4 

SETTLQ<ENr 

m 

.022 

SETTLEMENT 

AT 

TIME.  -  192 

MONTHS  AFTER  RB40VAL  OF  SURCHARGE 

LAYEl  NS 

1 

SETTLEMENT  - 

.000 

LAYEi  NS 

2 

SETTl^MENT  > 

.000 

LAIE3  NS 

3 

SETTLEMENT  - 

.000 

LATER  NS 

4 

SETTLEMENT  ■ 

.022 

8  February  1963 


4-227 


TM-(L)-993 


LI. 

IDENTIFICATION 

Title:  Statistical  Program  I  (Means,  Standard  Deviations,  Correlation 

for  Two  Variables)  -  Ident.  LI. 01 
Contributor:  Dr.  C.  A.  Caceres,  August  1962 

PURPOSE 

This  program  Is  written  in  FORTRAN  for  the  Control  Data  160-A  (reducing  the 
dimension  size  of  the  2  x  array  would  allow  running  on  the  160).  The 
routine  produces  the  means  and  standard  deviations  for  two  sets  of  variables 
and  the  correlation  between  corresponding  entries  in  the  two  lists. 

USAGE 

1.  Operational  Procedure: 

Using  techniques  for  FORTRAN  the  integral  value  of  n  and  the  n-floating 
point  x-values  and  the  n-floating  point  y-values  are  read  in  from  paper 
tape.  The  resulting  tape  from  the  punch  is  for  listing  on  the  Flexowriter 
and  the  user  will  find  his  results  well-labelled. 

To  continue  the  program  with  fresh  data  it  is  not  necessary  to  reload  the 
program;  simply  place  the  new  dat;a  tape(s)  in  the  reader  and  run. 

3.  Space  Requirements : 

The  maximum  array  size  for  which  the  routine  is  written  is  2  x  ^OOj^q. 

10.  Input  and  Output  Formats: 

Two  format  statements  are  used  to  control  the  input  of  data  into  the 
routine:  4  FORMAT  (14) 

10  FORMAT  (fl2.6) 

Three  read  commands  are  given  with  pauses  between  them.  The  first  read 
command  accepts  an  integral  quantity  n  (xxx/),  and  the  next  two  read 
commands  read  in  successively  n  x-values  and  n  y-values. 

Note:  It  has  been  made  the  practlve  to  oversize  the  format  statement  and 

thus  render  it  mandatory  to  terminate  each  piece  of  data  with  a  slash 
(and,  if  desired,  carriage  return). 


14.  Equipment  Configuration:  Minimum  SWAP  160  or  160-A  Computer,  and  Flexo¬ 
writer. 


8  February  1963 


4-228 


TM- (L)-993 


LI. 


IDENTIFICATION 

Title:  Statistical  Program  II  (linear  Regression)  -  Ident,  LI. 02 

Contributor:  Dr.  C.  A.  Caceres,  August  1962 

PURPOSE 

This  program  is  written  in  FORTRAN  for  the  Control  Data  160-A  (reducing  the 
dimension  size  of  the  2  x  n  array  would  allow  running  on  the  160).  The 
routine  produces  the  following  quantities  for  the  two  sets  of  variables; 

Regression  coefficients,  alpha  and  beta 
The  sum  of  squares  attributable  to  regression 
The  sum  of  squares  of  deviations  from  regression 
The  mean  square  deviation  from  regression 

The  sample  standard  error  of  the  dependent  variable  estimated 
from  the  independent  variable 
The  sample  standard  error  of  beta  and, 

The  't-test'  value 

Reference:  SNEDECOR,  Statistical  Methods,  Iowa  State  College  Press 
USAGE 

1.  Operational  Procedure: 

Using  the  techniques  for  FORTRAN  the  integral  value  of  n  and  the  n- 
floating  point  x-values  and  the  n-floating  point  y-values  are  read  in 
from  paper  tape.  The  resulting  tape  from  the  punch  is  for  listing  on 
the  Flexowriter  and  the  user  will  find  the  results  well-labelled. 

To  continue  the  program  with  fresh  data  it  is  not  necessary  to  reload 
the  program;  simply  place  the  new  data  tape(s)  in  the  reader  and  run. 

3.  Space  Requirements: 

The  maximum  array  size  for  which  the  routine  is  written  is  2  x  ^OOj^q. 
10.  Input  and  Output  Formats: 

Two  format  statements  are  used  to  control  the  input  of  data  into  the 
routine:  100  FORMAT  (i4) 

101  FORMAT  (fl2,6) 

Three  read  commands  are  given  with  pauses  between  them.  The  first  read 
command  accepts  an  integral  quantity  n  v,xxx/)  and  the  next  two  read 
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cotnmands  read  in  successively  In  x-values  and  n  y-values. 

Note:  It  has  been  made  the  practlve  to  oversize  the  format  statement 

and  thus  render  it  mandatory  to  terminate  each  piece  of  data  with 
a  slash  (and,  if  desired,  carriage  return). 

14,  ’Equipment  Configuration:  Minimum  SWAP  160  or  160-A  Computer,  and  Flexo- 
vriter. 
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LI. 


IDENTIFICATION 

Title:  Statistical  Program  III  (Test  of  Nomality  in  a  Frequency 

Distribution  of  Large  Size)  -  Ident  LI. 03 
Programmer:  Dr.  C.  A.  Caceres,  August,  1962 

PURPOSE 


This  program  is  written  in  FORTRAN  for  the  Control  Data  160-A  (reducing  the 
dimension  size  of  the  line  array  would  allow  running  on  the  160).  The 
routine  produces  the  following  quantities: 


Sj^,  ^3*  ^2*  ^3*  ^1*  ^2*  ^3*  ^1* 

for  gj^  and  t  for 


t 


Reference:  SNEDECOR,  Statistical  Methods,  Iowa  State  College  Press 


USAGE 


1.  Operational  Procedures: 

Using  techniques  for  FORTRAN  the  integral  value  of  n  and  the  n-floating 
point  x-values  are  read  in  from  paper  tape.  The  resulting  tape  from  the 
punch  is  for  listing  on  the  Flexowriter  and  the  user  will  find  his  results 
well-labelled. 

To  continue  the  program  with  fresh  data  it  is  not  necessary  to  reload  the 
program;  simply  place  the  new  data  tape(s)  in  the  reader  and  run. 

3.  Space  Requirements: 

The  maximum  array  size  for  which  the  routine  is  written  is  1  x  800^^^. 

10.  Input  and  Output  Formats: 

Two  format  statements  are  used  to  control  the  input  of  data  into  the 
routine:  100  FORMAT  (iA) 

101  FC»MAT  (fl2.6) 

Two  read  commands  are  given  with  a  pause  between  them.  The  first  read 
command  accepts  an  integral  quantity  n  (xxx/)  and  the  second  reads  in 
n  values  of  the  variable  from  paper  tape. 

Note:  It  has  been  the  practice  to  oversize  the  format  statement  and  thus 
render  it  mandatory  to  terminate  each  piece  of  data  with  a  slash 
(and,  if  desired,  carriage  return). 

lA.  Equipment  Configuration:  Minimum  SWAP  160-A  or  160  Computer,  and  Flexowriter. 
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LI. 


IDENTIFICATION 

Title:  Statistical  Program  IV  (Mean  and  Standard  Deviation  for  One 

Variable)  -  Ident.  LI. 04 
Contributor:  Dr.  C.  A.  Caceres,  August  1962 

PURPOSE 

This  program  is  written  in  FORTRAN  for  the  Control  Data  160-A  (reducing  the 
dimention  size  of  the  line  array  would  allow  running  on  the  160).  The 
routine  produces  the  mean  and  standard  deviation  for  a  single  variable. 

USAGE 

1.  Operational  Procedure: 

Using  the  techniques  for  FORTRAN  the  integral  value  of  n  and  the  n-floating 
point  x-values  are  read  in  from  paper  tape.  The  resulting  tape  from  the 
punch  is  for  listing  on  the  Flexowriter  and  the  user  will  find  his  results 
we 11- label led. 

To  continue  the  program  with  fresh  data  it  is  not  necessary  to  reload  the 
program;  simply  place  the  new  data  tape(8)  in  the  reader  and  run. 

3.  Space  Requirements; 

The  maximum  array  size  for  which  Che  routine  is  written  is  1  x  1000^^^. 

10.  Input  and  Output  Formats ; 

Two  format  statements  are  used  to  control  the  input  of  data  into  the 
routine:  4  FORMAT  (i4) 

10  FORMAT  {fl2.6) 

Two  read  commands  are  given  with  a  pause  between  them.  The  first  read 
accepts  an  integral  quantity  n  (xxx/)  and  the  second  reads  in  n  values 
of  the  variable  from  paper  tape. 

Note:  It  has  been  made  the  practive  to  oversize  the  format  statement  and 

thus  render  it  mandatory  to  terminate  each  piece  of  data  with  a  slash 
(and,  if  desired,  carriage  return). 

14.  Equipment  Configuration:  Minimum  SWAP  160  or  160-A  Computer,  and 
Flexowriter. 
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LI. 


IDENTIFICATION 

Title:  Statistical  Program  V  (Sums,  Sums  of  Squares,  and  Sums  of  Cross 

Products  for  Three  Variables)  -  Ident.  LI. 05 
Contributor:  Dr.  C.  A.  Caceres,  August  1962 

PURI^OSE 

This  program  is  written  in  FORTRAN  for  the  Control  Data  160-A  (reducing  the 
dimension  size  of  the  array  would  allow  running  on  the  160).  The  routine 
produces  the  basic  statistical  building  blocks  for  a  three-dimensional 
sample-space,  l.e.,  sums,  sums  of  squares  and  sums  of  cross  products.  This 
routine  would  reduce  the  dog-work  for  a  skilled  statistician  and  enable  him 
to  rapidly  decide  how  best  to  handle  his  data, 

USAGE 

1.  Operational  Procedure: 

Using  Techniques  for  FORTRAN  the  integral  value  of  n  and  the  n-floating 
point  values  of  each  of  the  three  variables  are  read  in  from  paper  tape. 
The  resulting  tape  from  the  punch  is  for  listing  on  the  Flexowriter  and 
the  user  will  find  the  results  well-labelled. 

To  continue  the  program  with  fresh  data  it  is  not  necessary  to  reload  the 
program;  simply  place  the  new  data  tape(s)  in  the  reader  and  run, 

3.  Space  Requirements: 

The  maximum  array  size  for  which  the  routine  is  written  is  3  x  300j^q. 

10.  Input  and  Output  Formats: 

Two  format  statements  are  used  to  control  the  input  of  data  into  the 
routine:  112  FORMAT  (14) 

113  FORMAT  (fl2.6) 

Four  read  commands  are  given  with  three  pauses  between  them.  The  first 
read  command  accepts  an  integral  quantity  n  (xxx/)  and  the  other  three 
read  in  n  values  of  each  variable  from  paper  tape. 

Note:  It  has  been  made  the  practive  to  oversize  the  format  statement 

and  thus  render  it  mandatory  to  terminate  each  piece  of  data  with  a 
slash  (and,  if  desired,  carriage  return). 

14.  Equipment  Configuration:  Minimum  160  or  160-A  Computer,  and  Flexowriter. 
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LI. 

IDENTIFICATION 

Title:  Statistical  Program  VI  (Percentiles)  -  Ident.  LI. 06 

Contributor:  Dr.  C.  A.  Caceres,  September  1962 

PURPOSE 

This  program  is  written  in  FORTRAN  for  the  Control  Data  160-A  (reducing  the 
dimension  size  of  the  four  internal  storage  arrays  would  allow  running  on 
the  160).  The  routiije  produces  the  percentiles  at  5  percent  intervals  after 
sorting  the  original  data  internally. 

USAGE 

1.  Operational  Procedure: 

Using  techniques  for  FORTRAN  the  Integral  value  of  n  and  the  n-floating 
point  x-values  are  read  in  from  paper  tape.  The  resulting  tape  from  the 
punch  is  for  listing  on  the  Flexowriter  and  the  user  will  find  his 
results  well  labelled. 

To  continue  theprogram  with  new  data  it  is  not  necessary  to  reload  the 
program;  simply  place  the  new  data  tape(8)  in  the  reader  and  run. 

3.  Space  Requirements : 

The  maximum  data  array  size  for  which  the  routine  is  written  is  1  x  300^^. 
10.  Input  and  Output  Formats 

Two  format  statements  are  used  to  control  the  flow  of  data  into  the 
routine:  103  FORMAT  (14) 

104  FORMAT  (fl2.6) 

Two  rpad  commands  are  given  with  a  pause  between  them.  The  first  read 
command  accepts  an  integral  quantity  n  (xxx/),  and  the  next  read  command 
reads  in  the  n  x-values. 

Note:  It  has  been  the  practice  to  oversize  the  format  statement  and  thus 
render  it  mandatory  to  terminate  each  piece  of  data  with  a  slash 
(and,  if  desired,  carriage  return). 


14.  Equipment  Configuration:  Minimum  SWAP  160  or  160-A  Computer,  and  Flexo¬ 
writer. 
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METHOD 

The  necessary  sorting  of  the  data  is  carried  out  by  means  of  the  "string" 
sorting  technique  in  which  strings  of  ascending  values  are  identified  and  the 
strings  lengthened  by  merging  in  successive  passes  until  one  sorted  string 
results.  Besides  the  two  equal-sized  areas  used  for  handling  the  actual  floating 
point  data,  two  Integral  areas  are  used  to  store  the  starting  and  ending 
addresses  of  the  1th  string  during  each  merge.  As  soon  as  a  pass  is  terminated 
in  which  i  has  not  exceeded  unity,  the  sort  is  known  to  be  completed  and  the 
relatively  simple  process  of  computing  the  percentiles  can  be  undertaken. 
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LI. 


IDENTIFICATION 

Title:  Statistical  Program  VII  (Two  't' -tests  for  2  Equal  or  Unequal¬ 

sized  Line  Arrays)  -  Ident.  LI. 07 
Contributor:  Dr.  C.  A,  Caceres,  August  1962 

PURPOSE 

This  program  is  written  in  FORTRAN  for  the  Control  Data  160-A  (reducing  the 
dimension  size  of  the  line  arrays  would  allow  running  on  the  160).  The 
routine  produces  and  outputs  either  the  t-test  value  for  equal-sized  sets 
or  the  t-test  value  for  unequal-sized  sets,  depending  on  whether  the  sets 
are  equal  or  unequal  in  length.  (Also  output  are  intermediate  statistical 
quantities  of  interest  produced  during  computation. ) 

Reference:  Snedecor,  Statistical  Methods,  Iowa  State  College  Press 

USAGE 

1.  Operational  Procedure: 

Using  techniques  for  FORTRAN  the  integral  value  of  n^^,  the  Oj^-floating 
point  x-values,  the  Integral  value  of  n2  and  the  n.-r loating^point 
y-values,  are  read  in  from  paper  tape.  ^The  resulting  tape  from  the  punch 
is  for  listing  on  the  Flexowriter  and  the  user  will  find  his  results 
well-labelled. 

To  continue  the  program  with  fresh  data  it  is  not  necessary  to  reload 
the  program;  simply  place  the  new  data  tape(s)  in  the  reader  and  run. 

3.  Space  Requirements: 

The  maximum  array  size  for  which  the  routine  is  written  is  2  x  ^OOj^q. 

10.  Input  and  Output  Formats: 

Two  format  statements  are  used  to  control  the  input  of  data  into  the 
routine:  109  FORMAT  (i4) 

110  FORMAT  (fl2.6) 

Two  read  commands  are  given  followed  by  a  pause  and  two  more  read 
commands.  The  first  two  read  commands  accept  an  integral  quantity 
nj^  (xxx/)  and  the  n^^  x-values;  the  second  two  read  commands  bring  in 
n2  and  the  n2  y-values. 
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Note:  It  has  been  the  practlve  to  oversize  the  format  statement  and 

thus  render  it  mandatory  to  terminate  each  piece  of  data  with  a 
slash  (and,  if  desired,  carriage  return). 


14.  Equipment  Configuration:  Minimum  SWAP  160-A  or  160  computer,  and 
Flexowriter. 
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Zl. 


IDENTIFICATION 

Title:  Single  Precision  Fractional  Square  Root  -  Ident.  Zl.OO 

Programmer:  Sanford  Elkin,  February  1961 

PURPOSE 

This  is  a  demonstration  routine.  It  will  find  the  square  root  of  a  proper 
fraction  with  a  maximum  error  of  2"  . 


USAGE 


1.  Operational  Procedure; 

Load  the  bl'Octal  tape  starting  at  cell  0,  and  clear.  Place  the  number 
N  in  the  A  register,  and  start,  X  “Vn  will  appear  in  the  A  register. 
Place  a  new  N  in  A  and  repeat. 

3.  Space  Used:  Octal  cells  100-206,  plus  locations  0,  1,  7,  and  55-67. 

10,  Timing:  Each  interatlon  about  2.25  milliseconds,  maxi  im  of  25  milli¬ 
seconds. 

11.  Accuracy:  Maximum  error  is  2"^^. 


MATHEMATICAL  METHOD 


Newton-Raphson  interation  with  X 
whenAX^2  .  The  Single  prec 


iitgi 


1/2  (X.  +  N/X.)  and  X 


on  Divide 


Subrout 


me  IS  u 


stopping 
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Zl, 


IDENTIFICATION 

Title:  Random  Number  Generator  (12  bit)  -  Ident.  Z1.02 

Programmer:  J.  A.  Pederson,  July  1961 

FURPOSE 

Produce  12-blt  "random"  numbers 
USAGE 

1.  Operational  Procedure: 

The  routine  floats  and  may  be  loaded  anywhere.  Set  P  =  any  arbitrary 
value,  set  Load  switch  and  Run. 

There  are  two  entrances  into  the  routine,  A  reset  entrance  at  L  and  a 
random  number  entrance  at  L  +  lOg  (where  L  "  the  initial  address  of  the 
routine) . 

The  initial  entry  is  made  at  L  with  an  exit  with  the  random  number 
displayed  in  A.  Entry  again  at  L  restarts  the  sequence. 

3,  Space  Required:  46g  =  locations 

4.  Temporary  Storage:  None 

10.  Timing:  307  microseconds  per  number  generated. 

12.  Cautions  to  User:  The  routine  generates  a  cycle  of  1679  X  1678 

2,560,000  12  bit  random  numbers  without  repeating  the  sequence.  Beyond 
this  the  cycle  repeats  Itself. 

METHOD 

The  routine  generates  two  number  series: 
a^  +  2  -  (®1  +  1  +  ®i)  mod  2^^  -1 
b^  +  2  -  (^i  +  1  +  ^i)  mod  2^^  -1 
where 

®1  -  1,  ®2  -  2 

'^1  -  1,  ^2  -  lOOg 
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Each  series  has  a  cycle  of  1679  values  before  repeating.  The  "a"  series  is 
shortened  to  a  1678  cycle  by  a  program  stop.  The  random  number  is  obtained 
by  an  exclusive  "or"  of  a^  and  b^^. 
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Z?. 

IDEMTIFICATIOH 

Title:  AIBUP  -  Ident.  Z3.OO 
Programmer:  C.  M.  Atchison,  April  1961 

PURPOSE 

This  routine  will  punch  character  messages  in  paper  tape  that  are  legible 
to  an  unskilled  observer.  These  characters  are  formed  in  a  3  by  7  matrix 
on  an  output  tape.  The  standard  I60  Flexovrlter  coded  paper  tape  is  used 
as  input. 

USAGE 

1,  Operational  Procedure: 

a.  Prepare  Flexovrlter  (Standrad  GDC  I60  code)  input  tape. 

b .  Load  BI-OCTAL  program  tape  at  location  *ero . 

c.  Turn  pvmch  on. 

d.  Place  Flex  input  tape  in  reader. 

e.  Run  from  zero. 

f .  Normal  stop:  P  ■  l40,  Z  ■  ELT  77* 

3 .  Space  Required 

a .  5740  locations . 

b.  380]^0  locations. 

4.  Temporary  Storage  Requirements 

a.  Variable  according  to  length  of  input  file  starting  at  location  600g. 

5.  Cautions  to  User 

a.  The  program  does  not  punch  leader  or  trailer  on  the  output  paper 
tape. 

13.  Equipment  Configuration 

a.  Standard  I60  coded  Flexovrlter  for  preparation  of  input  tape. 

b.  160  computer  vlth  paper  tape  input  and  output. 
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Z3, 


IDENTIFICATION 

Title:  Trajectory  Calculation  -  Ident.  AZ3.02 

Programmer:  Irv.  Meeker,  August  1961 

PURPOSE 

Given  the  target  range,  the  velocity  of  the  projectile,  and  its  angle  of  in¬ 
clination,  the  program  will  plot  the  path  of  the  projectile  on  the  typewriter. 
Appropriate  comments  are  typed  to  indicate  whether  the  shot  hit  the  target, 
was  too  short,  or  too  long.  A  shot  is  scored  as  a  hit  if  it  falls  within 
10.0  feet  of  the  range. 

The  plot  is  scaled  so  that  each  unit  on  the  X-axis  is  1/80  of  the  distance  to 
the  target.  Each  unit  on  the  yaxls  is  1/80  of  the  maximum  height  allowed. 

The  maximum  allowable  height  is  1/4- of  the  target  range. 

USAGE 

1.  Operational  Procedure 

a.  Place  the  program  tape  in  the  paper  tape  reader 

b.  Turn  PTR  on. 

c.  Master  Clear 

d.  Set  the  relative  bank  control  to  the  number  of  the  bank  into  which 
the  program  is  to  be  loaded. 

e.  Place  "Load-Clear"  switch  on  "Load". 

f.  Place  "Run-Step"  switch  on  "Run".  Tape  will  be  read  into  the  computer 
memory.  Check  sum  is  0001. 

g.  Master  Clear 

h.  Set  all  bank  controls  (buffer  not  necessary)  to  the  number  of  the  bank 
in  which  the  program  is. 

i.  Place  "Run-Step"  switch  on  "Run". 

9.  Input  and  Output  Formats 

a.  Entering  Data: 


8  February  1963 


4-242 


TM.(L)-993 


The  program  will  request  a  value  for  "RANGE(FT)",  "VELOCITY  (FT/SEC. )" 
and  "ANGLE  (DEG.)". 

Each  value  Is  entered  as  a  fixed  point  number  with  up  to  nine 
significant  digits.  A  decimal  point  must  be  entered  in  the  proper 
position  within  the  number.  Each  value  must  be  followed  by  either 
a  tab  or  a  carriage  return.  Zero  must  be  entered  as  "0.0". 

b.  Output  Format: 

The  routine  sets  up  the  output  graph  so  that  the  scale  in  the  direction 
of  the  target  is  one  space  equals  1/80  of  the  range,  and  one  space 
vertically  equals  1/320  of  the  range.  The  maximum  height  attainable 
by  trajectory  which  will  stay  on  the  page  is  1/4  of  the  range.  The 
numerical  quantities  printed  have  only  two  digits  to  the  right  of  the 
decimal  point. 

13.  Equipment  Configuration 

Minimum  160-A  and  161  Typewriter 


METHOD 

The  coordinates  of  the  projectile  are  computed  by  the  equation: 

tan  0  -  g  Xj^^/2  Vo^  cos^  0 
where  0  =  initial  angle  of  inclination 
VO  =  initial  velocity 
g  =  acceleration  due  to  gravity 
1  -  1,  2,  3,  ...  ,  16 

and  since  X.  is  computed  every  five  units,  X.  =  ^  .i 

80 


where  r  =  target  range. 
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Z3. 

IDENTniCATIQR 

Title:  MORRyiGE  AMOBIIZATiaR  -  Ident.  AZ3.O3. 
Flrograomer:  (Control  Data  Corporation),  Jbly  1962 

PURPOSE 


This  program  has  two  options: 

1.  Computes  the  monthly  pa^nt  necessary  to  amortli^e  a  given  principal 
amount  at  a  given  Interest  rate  for  a  given  duration. 


2.  CosQnites  the  duration  necessary  to  amortize  a  given  pzlnclpal  amount 
at  a  given  Interest  rate  vlth  a  given  monthly  payment. 

In  option  (2),  after  computing  the  necessary  duration  of  the  loan,  uhlch  vlU 
nerally  be  a  non>lntegral  number  of  years,  a  desired  duration  Is  reguested 


close  to  the  desired  amount.  Is  calculated. 


At  the  completion  of  either  option,  a  complete  amozlilzatlon  schedule  Is  typed 
out,  showing  the  payment  number,  the  portion  of  the  payment  idtleh  goes  for 
Interest,  the  protlon  which  Is  deducted  from  the  prlnclpea  and  the  nev  balance 
to  be  pcdd. 


USAGE 


1.  Loading  Instructions 

a.  Place  the  program  tape  In  the  paper  tape  reader. 

b.  Tun  PRT  on. 

c.  Master  clear. 

d.  Set  the  relative  bank  control  to  the  number  of  the  bank  Into  lAlch 
the  program  Is  to  be  loaded. 

e.  Place  "Load-Clear:  switch  on  "Load." 

f.  Place  "Run-Step:  switch  on  "Run".  Tape  will  be  read  Into  the 
computer  memory.  Check  sum  Is  0002. 

g.  Master  clear. 

h.  Set  all  bank  controls  (buffer  not  necessary)  to  the  number  of 
the  bank  In  which  the  program  Is  contained. 

1.  Place  "Run-Step"  switch  on  "Run". 

2.  Operating  Instructions: 

The  program  will  request  the  principal  amount  of  the  loan  and  the  rate 
of  Interest.  Each  number  must  contain  a  decimal  point  and  following 
digit.  When  the  values  for  these  two  quantities  have  been  snppUed, 
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the  program  vlll  type  "Desired  Monthly  Payment  >  If  a  certedn 
monthly  payment  is  desired,  the  amount  is  specified  at  this  point,  and 
the  program  will  coaipute  the  number  of  years  necessetry  to  amortize 
the  loan.  If  no  specific  monthly  payment  is  desired,  type  "0.0"  for 
the  desired  monthly  payment. 

The  program  will  request  "Desired  Duration  of  Loan  »  ".  At  this  point 
the  length  of  the  loan  in  years  must  be  supplied.  The  program  will 
cooqmte  the  monthly  payment  necessary  to  amortize  the  loan.  Following 
this,  a  payment  schedule  is  typed  showing  payment  number,  interest  due, 
amount  paid  on  principal,  and  balance  on  loan. 

7.  Error  Stop 

If  a  value  is  input  for  desired  monthly  payment  idxich  is  too  small,  the 
ccaqiuter  will  type  "Sorry,  not  possible"  and  halt.  To  restart,  place 
run  switch  in  neutral  and  back  to  run. 

l4.  Equlpaient  Configuration  -  Minimum  StfAP  16O-A,  161  typewriter. 


METHOD 


The  eq^atlon  used  to  ceJLculste  the  monthly  payment  Is: 


M 


P.  R.  (1  -I-  R) 

(1  +kjs  -  1 


H 


idiere  F  =  principal 

R  3  rate  of  Interest  per  month  (l/l2  annual  rate) 
H  a  number  of  months 


The  equation  used  to  calculate  the  duration  of  the  loan  in  yeeurs  is: 

log  (1  -  ra) 
n  >  -  ■  ■  I  jT. 

log  (1  +  R) 


t4iere  M  »  monthly  payment  and  R  and  R  are  defined  as  above. 
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Bl. 


IDENTIFICATION 

Title:  Multiple  Precision  Package  -  Ident.  B1.02 

Programmer:  D.  C.  Nelson,  May  1961 

PURPOSE 

Perform  arithmetic  with  operands  expressed  to  6,  12,  18,  24,  ,.,.6N  binary 
digit  precision. 

USAGE 

Normally  the  degree  of  precision  will  be  set  for  a  particular  tape,  but  this 
can  be  changed  for  other  precision  without  altering  any  of  the  subroutines. 

By  specifying  the  beginning  and  ending  addresses  of  the  A,  X,  and  Q  registers 
plus  the  address  of  AHEXT,  a  one  word  extension  of  the  A  register,  the 
precision  can  be  changed  to  any  desired  length,  using  6  bits  of  precision 
per  register  word.  For  24  bit  precision,  four  160  words  are  used  per  register, 
etc.  The  user  is  cautioned  to  make  sure  that  the  A-register  is  positioned 
such  that  it  is  a  continuation  of  the  Q-register,  For  example:  in  24  bit 
precision  if  the  low  order  address  of  the  Q-register  is  7624,  the  high  order 
address  of  the  Q-register  is  7627.  In  this  case  the  low  order  address  of 
the  A-reglster  must  be  the  next  address,  7630,  with  the  high  order  address 
at  7633,  and  AHEXT  at  7634.  Space  has  been  saved  for  the  registers,  be¬ 
ginning  at  7620  and  ending  at  7776,  in  memory.  The  following  cells  of  the 
first  sixty-four  memory  locations  hold  the  seven  variable  addresses: 

AHEXT  -  0013  -  one  word  extension  of  A-register 

AH  -  0015  -  high  order  address  of  A-register 

AL  -  0016  -  low  order  address  of  A-register 

QH  -  0024  -  high  order  address  of  Q-register 

QL  -  0025  -  low  order  address  of  Q-register 

XH  -  0021  -  high  order  address  of  X-register 

XL  -  0022  -  low  order  address  of  X-register 

Each  data  word  to  be  used  by  the  MPPN  routine  must  be  packed  with  the  four 
high  order  octal  digits  in  the  low  order  address,  the  next  four  lower  octal 
digits  in  the  next  higher  address  and  so  forth.  Examples  of  this  packed 
representation  are: 


Octal  Number  (24  bit  precision) 

Location 

Contents 

6532  4173 

1000 

6532 

1001 

4173 

(42  bit  precision) 

56410273561402 

2000 

5641 

2001 

0273 

2002 

5614 

2003 

0200 
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Arithmetic  is  accomplished  in  I's  complement  fashion,  with  the  highest  order 
bit  interpreted  as  a  sign  bit.  For  example  the  4Sth  bit  ii  48  bit  precision, 
is  interpreted  as  a  sign  bit  following  standard  conventions  of  a  1  i.f  negatl 
and  a  0  if  positive. 

1.  Principle  of  Operation  -  MPPW  consists  of  a  control  i.outine  and  a  luimber 
of  arithmetic  subroutines.  The  control  routine  makes  possible  the 
linkage  of  any  number  of  subroutines  without  generating  a  subroutine 
linkage  in  the  main  program  each  time  one  of  the  MPrU  subroutines  is  use 

The  MPPN  subroutines  are.  designed  to  operate  using  one  parameter,  the 
operand  address,  called  Pf  in  the  following  discussion. 

2.  Control  Routine  -  The  control  routine  provides  the  ireans  of  tying  I'tPPN 
subroutines  together  and  performs  the  function  of  getting  the  parameter 
from  memory  to  a  standard  location  for  use  by  the  .subroutines. 

The  entrance  to  the  control  routine  is  ENTR,  or  6300.  This  entrance 
causes  the  control  routine  to  continue  to  interpret  calling  sequences 
until  the  subroutine  BASIC  is  called. 

A  calling  sequence  consists  of  the  subroutine  mnemonic  code  followed  by 
the  parameter,  PY,  required  by  the  subroutine. 

Examp le  - 

To  solve  the  problem,  (A+B)  C/D  and  store  the  result  at  E,  in  MPPN,  and 
return  to  basic  160  machine  coding,  the  following  coding  (expreussed  iii 
Assembly  Language)  will  do  the  job. 


Location 

Op 

Address 

LI 

LDF 

03 

L2 

JFI 

01 

L3 

ENTR 

L4 

NEXT 

NEXT 

LDA 

L5 

A 

ADD 

B 

MPY 

C 

DIV 

D 

STA 

E 

BASIC 
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At  conclusion  of  the  store  A  routine,  the  control  routine  recognizes  the 
BASIC,  and  returns  control  to  the  mein  program  at  1.5. 

3.  MPPN  Subroutines. 


a)  Load  MPPN 'a  A-Register. 
Calling  sequence 
LDA 
PY 


Operation  -  Load  the  octal  number  beginning  at  location  PY  Into  the 
MPPN 'a  A-Register. 

b)  Load  Complement  MPPN's  A-Regiater. 

Calling  sequence 
LCA 

^^Jcm-'.nt  of  the  octal  number  beginning  at 


Operation  •  Lo) 
location  PY  into  the 

c)  Store  MPPN's  A-Reglster. 
Calling  sequence 
STA 
PY 


“  iter. 


Operation  -  Store  the  octal  number  tr.  MPPN's  A-Reglster  beginning 
at  location  PY  in  memory.  The  4  high  order  octal  digits  go  into  PY; 
the  next  4  lower  order  octal  digits  Into  PY  +  1  etc. 


d)  Store  MPPN's  Q-Register 
Calling  sequence 
STQ 
PY 

Operation  -  Store  the  octal  number  in  MPPN's  Q-Register  beginning  at 
location  PY  in  memory.  The  4  high  order  octal  digits  go  into  PY; 
the  next  4  lower  order  octal  digits  into  PY  +  1  etc. 


e)  Addition 

Calling  sequence 
ADD 
PY 

Operation  -  Add  the  octal  number  beginning  at  location  PY  to  the 
MPPN's  A-Register. 


f)  Subtraction 

Calling  sequence 
SUB 
PY 

Operation  -  Subtract  the  octal  number  beginning  at  location  PY  from 
the  MPPN's  A-Reglster. 
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g)  Multiplication 
Calling  sequence 
MPY 
PY 

Description  -  This  is  a  fractional  multiply.  Therefore  the  binary 
point  is  assumed  to  be  immediately  following  the  sign  bit.  Example; 
the  fraction  1/2  would  be  0.10-0  with  N  bits,  the  fraction  -  1/4 
would  be  1.101  -  1  with  N  bits. 

Opieration  -  Multiply  the  octal  number  in  memory  location,  PY,  by  the 
octal  number  in  the  MPPN's  A-Register.  The  most  significant  N  bits 
of  the  2N  bit  signed  product  are  in  the  MPPN's  A-Register  with  the 
least  significant  N  bits  in  the  MPPN's  Q-Register. 


h)  Division 

Calling  sequence 
DIV 
PY 

Description  -  This  is  a  fractional  divide;  see  description  under 
multiplication.  Therefore  an  overflow  condition,  with  an  incorrect 
answer,  will  exist  if  the  divisor  is  smaller,  in  absolute  terms, 
than  the  dividend. 


Operation  -  Divide  the  octal  number  in  the  MPPN's  A-Register  by  the 
octal  number,  in  memory,  beginning  at  location  PY.  At  the  conclusion 
of  the  divide  instruction,  the  appropriately  signed  quotient  is  in 
I'le  MPPN's  A-Fegister  with  the  signed,  same  as  dividend,  remainder  in 
Q-Regliitir ,  Note  that  a  halt  is  executed  if  division  by 

zero  is  uL 


A  Left  Shift 
Calling  sequence 
ALS 
PY 

Description  -  This  is  a  end  around  circular  left  shift  of  the  MPPN's 
A-Register.  In  this  case,  the  operand,  PY,  is  a  shift  count  in  octal. 


Operation  -  Shift  the  MPPN's  A-Register  left  end  around  PY  positions. 


j)  A  Right  Shift 
Calling  sequence 
ARS 
PY 

Description  -  This  is  an  end  off  right  shift  of  the  MPPN's  A-Reglster. 
In  this  case,  the  operand,  PY,  is  a  shift  count  in  octal.  In  this 
shift  operation  the  sign  bit  is  extended  to  the  right. 
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Fl. 


IDENTIFICATION 

Title:  Paper  Tape  Verify  -  Ident.  F1.03 

Programmer:  R.  Beale,  January  1961 

PURPOSE 

The  program  is  used  to  verify  copies  of  an  original  paper  tape. 

USAGE 

1.  Operation  procedure: 

a.  Master  Clear 

b.  Machine  load  Paper  Tape  Verify  program  at  zero 

c.  Master  Clear 

d.  Insert  original  tape  into  reader 

e.  Run 

f.  On  HLT  01,  P  =  0107;  insert  second  tape  into  reader  and  run  without 
altering  console 

g.  On  HLT  02,  P  “  0130:  the  last  tape  is  equivalent  to  original  -- 

to  verify  another  tape,  place  it  in  reader  and  run  without  altering 
console  --  upon  successful  verification  step  g  may  be  repeated. 

3.  Space  Required:  135g  ■  ^^10 

7.  Error  Stops;  On  ERR  01,  P  ■  0132:  the  last  tape  is  not  equivalent  to 
the  original  —  to  continue  verifying  tapes,  place  new  tape  in  reader 
and  run  without  altering  console.  This  will  execute  Step  Ig. 

10.  Timing:  350  frames/second 

13.  Equipment  Configuration:  Minimum  System 

METHOD  OR  ALGORITHM 

A  series  of  sequence-sensitive  check  sums  is  formed  for  each  tape  and  tested 
for  equivalence.  There  is  no  limit  on  the  lengths  of  tapes  to  be  verified. 


FLOW  CHART  -  Not  applicable. 
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IDENTIFICATION 

Title:  Listable  Octal  Dump,  Ident.  F3.02 

Programmer:  Don  T.  Miller,  July  1961 

PURPOSE 

To  produce  a  listable  octal  dump  of  a  specified  area  of  core  . 

USAGE 

1.  Operational  Procedure 

The  program  may  be  loaded  anywhere  greater  than  address  1.  The  P  register 
should  be  set  to  the  starting  load  address,  the  starting  address  of  the 
area  to  be  dumped  put  in  the  A  register,  and  the  Run  switch  put  In  RUN, 

The  program  will  stop  at  the  load  address  +12g,  and  the  final  address  of 
the  dump  should  be  placed  in  A.  When  put  into  run  mode  the  program  will 
punch  the  required  area  of  core  (in  Flexowriter  code),  punch  a  stop  code, 
restore  any  registers  in  low  core  that  it  uses,  and  stop  at  the  load 
address  +105g. 

3.  Space  Used:  251g  =  1^9 locations 

9.  Output  Format:  Each  line  will  contain:  carriage  return,  octal  address, 
the  octal  contents  of  eight  registers,  four  spaces,  octal  address,  and 
the  octal  contents  of  eight  registers.  Duplicate  lines  will  not  be  punched. 

10.  Timing:  The  program  operates  at  punch  speed. 

12.  Caution  to  user:  The  punched  contents  of  cell  7777  will  be  the  contents  of 
cell  0. 

13.  Equipment  Configuration;  Minimum 
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IDENTIFICATION 

Title:  BI-OCTAL  DUMP  2,  Ident.F3.06 

Programmer:  H.  C.  Schnackel  modified  by  C.  M.  Atchison,  April  1961 

PURPOSE 

This  program  will  sequentially  dump  in  BI-OCTAL  (machine-load  format),  the 
information  stored  in  core  memory  beginning  with  the  starting  address,  and 
ending  at  the  terminating  address  minus  one.  The  output  tape  can  be  loaded 
by  use  of  the  "Load"  reader  mode  on  the  160  computer. 

USAGE 

1.  Operational  Procedure 


a. 

Load  BI-OCTAL  Program  Tape  at 

7732g. 

b. 

Set  P 

register  at  7732g. 

c. 

Set  A 

register  equal  to  first 

word  location  to  be  dumped. 

d. 

Run. 

e. 

Set  A 

register  to  last  word  location  to  be  dumped  plus  one 

f. 

Punch 

on. 

g- 

Run. 

3.  Space  Required 

a.  Decimal  —  37  locations  high  core 

b.  Octal  --  45  locations  high  core 

4.  Temporary  Storage  Requirements 
Uses  and  restores  location  0. 

12.  Cautions  to  User 

a.  The  program  is  not  relocatable. 

b.  The  program  does  not  punch  leader  or  trailer  in  the  output  tape. 
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II)  Remove  the  cards  from  the  read  hopper  and  reproduce  the  damaged 
cards  from  the  bottom  of  this  stack.  Replace  the  reproduced 
cards  on  the  bottom  of  the  stack  and  discard  the  damaged  cards. 

Ill)  Push  the  START  button  until  all  cards  in  the  machine  have  been 
fed  out. 

IV)  Put  the  last  card  fed  out  in  front  of  the  reproduced  cards  from 
the  read  hopper. 

V)  Place  the  corrected  card  stack  In  the  read  hopper  and  push  the 
start  button  twice  to  feed  two  cards. 

VI)  Put  the  read  stacker  switch  In  the  OFF  position  (toggle  It  away 
from  you).  The  NOT  READY  light  will  go  out  and  the  computer  will 
continue  reading  cards. 

2.  Parameters 

a.  Entrance  parameter 

OWOU  as  follows: 

W  ■  tape  control  unit  number  (usually  1) 

U  ••  logical  tape  number 

b.  Exit  parameters 

Upon  normal  return,  none. 

Upon  error  return; 

I)  for  bad  tape  exit,  A  "  7775. 

II)  for  illegal  BCD  code,  A  ■■  column  number  in  which  first  bad  code 
appears. 

3.  Space  Requirements 

115Ag  locations  in  the  relative  bank. 

20g  locations  In  the  direct  bank. 

254g  locations  In  the  indirect  bank. 

Q 

Locations  in  the  Indirect  bank  are  assigned  by  EQU  cards,  124q  ■■ 

locations  for  the  symbol  BLKA  and  130g  ■■ 

symbol  BLKB.  This  storage  assignment ’’must  be  non -over lapping  and 

location  (1)  0000  must  not  be  included. 
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If  It  is  desired  to  re-srrange  the  direct  storage  assignments,  only  the 
symbol  LCARD  may  be  assigned  location  (d)  0000.  All  other  direct  storage 
locations  may  be  assigned  at  will. 

6.  Error  Return 

a.  If  the  program  Is  unable  to  write  a  record  9  times  because  of  parity 

errors,  the  error  return  occurs  with  A  “  7775.  In  this  case,  the  card 

which  has  Just  passed  the  2nd  read  station  has  been  read  but  not  pro¬ 
cessed.  The  card  Image  for  the  card  immediately  preceding  the  above 
card  is  the  card  image  which  cannot  be  put  on  tape. 

b.  If  an  Illegal  punch  combination  occurs  in  a  column,  the  error  return 

occurs  with  A  *■  first  column  in  which  a  bad  code  appears.  In  this 

case,  the  card  which  has  just  passed  the  2nd  read  station  is  in  error. 
The  card  image  for  the  card  immediately  preceding  the  above  card  is 
the  last  card  image  written  on  tape. 

7.  Program  Stops 

As  a  closed  subroutine,  the  only  program  stop  is  at  symbolic  location 
RR17+1  after  sensing  an  End-of-Tape  reflective  marker.  The  program  rewind- 
unloads  the  tape  prior  to  the  stop.  Mount  the  next  tape  and  continue. 

This  stop  is  at  location  (r)  1247  when  used  as  an  independent  program. 

As  an  independent  program,  two  additional  stops  are  provided:  at  location 
(r)  0063  for  the  normal  return  and  location  (r)  0065  for  the  error  return. 

To  continue  running  from  any  of  the  above  stops,  put  the  RUN-STEP  switch 
into  the  STEP  position,  then  into  the  RUN  position. 

8.  Output  Tape  Mounting 

The  output  tape  is  mounted  on  control  unit  W  with  logical  selection  U 
as  in  2. a.  above.  The  tape  must  not  be  file  protected. 

9.  Input  and  Output  Formats 

a.  Card  Input  Formats 

The  presence  of  both  7  and  9  punches  in  column  1  identifies  a  column 
binary  card.  All  other  cards  are  assumed  to  be  BCD. 

b.  Tape  Output  Formats 

1)  for  binary  cards,  a  168^^  character  record,  the  first  160^_ 
characters  representing  the  binary  card  in  odd  parity  blt-ror- 
bit  and  the  next  8^q  characters  as  follows: 
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13.  Equipment  Configuration 

a.  Basic  4k  160  with  paper  tape  Input  and  output. 
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F6. 

IDENTIFICATION 

Title:  160-A  Card  to  Magnetic  Tape  Routine  -  Ident.  F6.05 

Programmer:  Larry  Brown,  November  1961»  Control  Data  Corporation 

PURPOSE 

This  routine  accepts  standard  80  column  BCD  or  column  binary  cards  and  writes 
their  card  images  with  "look-ahead"  bits  onto  magnetic  tape.  Programmed  for 
the  IBM  533  Card  Read  Punch. 

USAGE 

1.  Calling  Sequence  and  Operational  Procedures 

a.  As  a  closed  subroutine,  entry  is  made  with  the  following  calling 
sequence: 

L  JPR 

L+1  CDTAP 

L+2  NORMAL 
L+3  RETURN 

L4A  ERROR 

L+5  RETURN 

L+6  OWOU 

b.  As  an  Independent  program,  load  the  bi-octal  tape  at  location  0000 
in  either  bank,  and  start  at  location  (r)  0060  with  OWOU  in  the 
A-reglster. 

c.  533  Card  Read  Operation 

Place  the  cards  to  be  read  in  the  read  hopper  to  feed  9-edge  first, 
face  down.  Push  the  START  button  twice  to  feed  two  cards  and  turn 
off  the  NOT  READY  light.  At  least  two  blank  cards  must  follow  the 
deck  to  be  read. 

d.  Card  Feed  Failure 

In  case  of  a  card  feed  failure,  follow  these  procedures: 

I)  Put  the  read  stacker  switch  in  the  ON  position  (toggle  it  toward 
you). 
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00  05  00  01  00  05  00  04  if  the  next  Image  on  tape  is  a 

binary  Image  In  odd  parity, 

00  04  00  00  00  01  00  00  If  the  next  Image  on  tape  Is  a 

BCD  Image  In  even  parity. 

II)  for  BCD  cards,  a  character  record,  the  first  80^^-  characters 

In  standard  BCD  representing  the  BCD  card  in  even  parity  and  the 
next  characters  as  follows: 

11  11  07  07  20  20  20  20  if  the  next  image  on  tape  is  a 

binary  Image  in  odd  parity, 

20  20  20  20  20  20  20  20  if  the  next  image  on  tape  is  a 

BCD  image  in  even  parity. 

c.  Control  Card  Formats 

I)  FILE*  in  columns  1-5  causes  an  End-of-File  mark  to  be  written  on 
tape.  The  FILE*  card  image  is  not  written  on  tape.  The  program 
continues  with  the  next  card  image  following  the  EOF  mark. 

II)  ENDbb  in  columns  10-14  causes  an  End-of-File  mark  to  be  written 
on  tape  following  the  END  card  image.  The  program  continues 
with  the  next  card  image  following  the  EOF  mark. 

Ill)  FINIS  in  columns  10-14  causes  two  End-of-File  marks  to  be  written 
on  tape  following  the  FINIS  card  image.  The  program  rewind- 
unloads  the  tape  and  exits  to  the  normal  return.  Use  of  the 
FINIS  card  is  the  only  way  to  legitimately  terminate  the  operation 
of  this  program. 

10.  Timing 

Approximately  200  cards  per  minute  read  and  put  on  tape.  This  program 
operates  as  fast  as  the  533  card  read  unit, 

12.  Cautions 

Do  not  step  through  the  routine  or  take  the  computer  out  of  RUN,  else 
the  input-output  transfers  may  not  be  completed  correctly. 

13.  Equipment  Configuration 

Minimum  160-A  with  163  and  1610  adaptor  for  the  IBM  533  card  read  punch. 
The  program  assumes  a  2-bank  160-A.  The  163  tape  unit  is  selected  in  both 
the  character  (6-blt)  and  assembly  (12-blt)  modes.  The  buffer  channel  is 
used  to  read  cards.  Cards  are  read  from  the  second  read  station. 
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15.  Miscellaneous 

a.  Normal  Return 

Follows  reading  a  FINIS  card. 

b.  Interrupt 
Not  used. 

c.  Bank  settings 

Upon  normal  and  error  exits,  the  direct,  Indirect,  and  buffer  bank 
assignments  are  restored  to  their  values  at  time  of  entry  to  the 
subroutine.  The  subroutine  will  work  In  either  bank. 

d.  Machine  Registers 

The  Buffer  Entrance,  Buffer  Exit,  and  A-reglster  are  not  restored, 

e.  Legal  BCD  codes  and  card  column  punch  codes  as  per  standard  set. 

f.  Selective  Stop  and  Selective  Jump  switches  are  not  used. 


METHOD 

1.  Tape  write  error  procedures. 

Following  detection  of  parity  errors  on  writing  the  tape,  a  backspace 
and  a  new  write  operation  Is  performed.  If  3  tries  at  writing  fall, 
the  tape  Is  backspaced,  an  EOF  written,  and  a  backspace  Is  performed 
to  skip  over  about  6  Inches  of  tape  and  3  more  attempts  are  made  to 
write  the  record  before  another  EOF~backspace  Is  tried.  After  9  attempted 
write  operations  fall,  the  tape  Is  backspaced  and  the  error  return  Is 
made  with  A  “  7775. 

2.  Checking  for  Illegal  BCD  codes  Is  accomplished  by  the  following  equations 
operated  on  each  12-blt  word  of  the  card  Image  read  In.  The  *  Indicates 

a  bitwise  logical  product  and  the  +  Indicates  a  bitwise  logical  (exclusive) 
OR.  The  numbers  1,  2,  3....  represent  the  card  row  1,  2,  3.... etc.  If 
the  following  equations  are  not  satisfied,  an  Illegal  BCD  code  appears  on 
the  card. 

7*9-0 
(7+9)*6-0 
(6+7+9) *5-0 
(5+6+7+9)*2-0 
(2+5+6+7+9)*l-0 
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(l+2+5+6+7+9)*8-0 

3*4-0 

( 1+2+5+6+7+9 ) * (3+4 ) -0 
a+2+3+4+5+6+7+8+9)+8*(3+4)  *0*11-0 
(l+2+3+4+54«+7+8+9)+8*(3+4)  *0*12-0 
11*12-0 
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